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ABSTRACT 



This research develops a prototype relational database system for storing and 
managing Fleet Battle Experiment (FBE) data. It is the first step in constructing a 
knowledge-base system for such data. The objective is to create a relational database 
capable of generating information from past experiments for analysis and lessons learned 
to benefit future experiments. Research methodology included literature research of 
application development methodologies and database systems, as well as observing a 
FBE and gathering system requirements information from personnel that plan, configure, 
and participate in FBEs and war games. 

Development of the system involved designing a schema (data model) that 
consists of entities, attributes, and relationships of the FBE environment. The data model 
is transaction- (event-) based and concentrates on information flow in order to categorize 
and store the data. These events provide the logical links between the identified entities 
and the capability to query the system for desired information. Finally, a prototype 
application against the data model was developed to facilitate data entry, modification, 
and querying. 
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1. INTRODUCTION 



A. BACKGROUND 

In a world full of uncertainty and the possibility of conflict, our country’s military 
personnel must be prepared to deal with any number of potential threats. Preparedness is 
crucial, but training for certain scenarios may be economically infeasible for and/or 
logistically impossible to support. 

In order to prepare for such scenarios and to test war fighting doctrine and 
philosophy, our armed forces have developed two types of training: Fleet Battle 
Experiments (FEE) and War Games. A War Game is an exercise that the military and 
other defense organizations use in order to gain experience at making decisions in diverse 
scenarios. War Games typically use computer simulations, also known as Synthetic 
Theaters of War (STOW), but may also be designed as discussion groups for system and 
doctrine experts. Objectives chosen are aimed at testing particular systems, practicing 
specific maneuvers and tactics, providing familiarization with certain environments and 
situations, and/or enhancing and honing decision-making skills. War Game scenarios are 
chosen so they are plausible and relevant to the objectives of the game. They are most 
effective for testing strategic and tactical levels of warfare. 

FBEs are designed as genuine experiments, not demonstrations or exercises. 

Each experiment has a hypothesis and specific, carefully considered measures of 
effectiveness. Products from the FBEs include: new doctrine; new insight into 
technology in an operational environment; identification of new required operational 
capabilities; identification of new acquisition requirements; ideas for further warfare 
concepts; and ideas for further experimentation. FBEs are useful at testing all levels of 
an operation from strategic to operational. [Ref 1 1] 

The information and knowledge that is produced during the war game is vast and 
complex. The data produced is of varying types, recorded in dissimilar ways, and is 
related in a complex manner. Experiential knowledge from an FBE is carried away by 
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the participants and is rapidly dispersed by personnel assignments and tasking. This 
information would be of great benefit to future scenario design and to provide decision 
support to the participants. Unfortunately, it is too diverse to be appropriately collected 
and stored. Consequently, there is currently no appropriate approach or mechanism to 
systematically capture, retrieve, and analyze the data collected from an FBE. 

Currently, several disparate systems are used to manage data for a FBE. For 
example. Land Attack Weapons System (LAWS) and Global Intelligence, Surveillance, 
and Reconnaissance System (GISRS) provide weapon and sensor node data management 
as well as the data repositories for these objects. This collection of heterogenous systems 
causes problems in the integration of the data for the purpose of querying and analysis. 
Additionally, data stored in these systems may not be accurate due to the data input and 
collection methods used. For example, a large portion of LAWS data is entered manually 
and therefore may be inaccurate and incomplete. 

B. PURPOSE 

The purpose of this research is to ascertain the feasibility of developing a 
prototype relational database system for storing and managing FBE data. Such a 
database system would enable analysts to retrieve data and information from past 
experiments for the purposes of analysis and extracting lessons learned to benefit future 
experiments. 

This research is part of a larger effort to develop a knowledge base system to 
support FBEs by transferring knowledge obtained from past experiments to the 
appropriate context of a current experiment. To accomplish this elaborate task, a four- 
phased approach is being considered. 

The first phase, the focus of this thesis, develops a data model and application for 
storing and managing the quantitative aspect of FBE data. More specifically, this first 
phase provides: 

1. Collection of the data and functional requirements needed for the data model and 
application system. 
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2. Development of a data model that consists of the entities, attributes, and relationships 
of FEE data. 

3. Development of an application system that defines the main queries, forms, and 
reports of the developed data model. 

4. Development of data import facilities that populate the developed database with data 
from other archival systems (e.g., LAWS). 

5. A prototype data management system tested with actual FEE data to evaluate its 
functionality, usability, and effectiveness. 

The second phase develops an ethnographic model to collect and manage the 
qualitative aspects of FEE data. The third phase integrates the first two efforts into a 
loosely defined “Knowledge Management System.” The fourth phase evolves the 
product of the third phase into a full-fledged knowledge management engine and system 
using an appropriate technology (e.g., object-oriented, Web, or collaborative 
technologies). 

C. SCOPE AND METHODOLOGY 

This thesis focuses on the collection, storage, and analysis of tracking and 
targeting data. Development of the system involved designing a schema (data model) 
that consisted of entities, attributes, and relationships of the FEE environment and 
structure (both physical and logical). The personnel structure was studied for data model 
completeness, but not implemented in the prototype system. 

The data model is transaction- (event-) based and concentrates on information 
flow in order to categorize and store the data. It represents the information exchanges 
and data links that are the focus for this research. This approach provides logical links 
between the identified entities and the capability to query the system for desired 
information. A prototype application was coupled with the database to complete the data 
management system and facilitate data entry, modification, and querying. 

The following research methodology was implemented to properly develop the 
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system. The architectures of fleet battle experiments and war games were studied. 
Elements and entities of the architectures were discussed to establish their significance to 
the overall structure, and personnel were interviewed to determine information flow and 
critical points of information exchange. 

A schema was developed in an attempt to capture the essence of the FEE 
architecture. The schema was analyzed to ensure that critical entities were accurately 
defined and that key information was not overlooked. Relationships were studied to 
guarantee proper entity interactions and dependencies. 

Upon data model approval, some requirements were gathered for application 
implementation. Application interaction with the database was then tested and 
requirement completion verified. 

This thesis is organized as follows. Chapter 2 discusses the overall framework of 
FBEs, data sources, and collection methodologies. Chapter 3 discusses the data model 
developed and its components. Chapter 4 addresses the application created and its 
capabilities. The final chapter addresses benefits, shortcomings, and lessons learned and 
provides some recommendations for improvements to the system. 
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II. OVERVIEW OF FLEET BATTLE EXPERIMENTS 



A. FRAMEWORK 

The Chief of Naval Operations (CNO) established the Maritime Battle Center 
(MBC) at the Naval War College (NWC) in Newport, Rhode Island, to serve as the single 
point of contact for Navy Fleet Battle Experimentation and participation in Joint 
Experiments. This action was the first step in streamlining and invigorating the Navy’s 
warfare concept development, doctrine refinement, and warfare innovation process. 

The MBC is responsible for designing and planning Fleet Battle Experiments, 
coordinating the execution of these experiments in conjunction with the numbered fleet 
operational command elements (OCE), and analyzing and disseminating experiment 
results. The FBE results are used to accelerate the delivery of innovative warfare 
capabilities to the fleet, identify concept-based requirements, and evaluate new 
operational capabilities. 

The Navy Warfare Development Command (NWDC) was officially established 
on 10 August 1998 in Newport, Rhode Island. [Ref. 1 1] 

B. DESCRIPTION 

Each FBE has a hypothesis and specific, carefully considered measures of 
effectiveness. FBEs produce, new doctrine, new insight into technology in an operational 
environment, identification of new required operational capabilities, identification of new 
acquisition requirements, ideas for further warfare concepts, and ideas for further 
experimentation. 

Unlike a war game, a FBE involves real components and assets. Military units 
are employed and the exercise is executed in a real-world environment. However, some 
computer systems may be used to supplement the real environment by ‘injecting’ 
synthetic, or virtual, targets into the experiment. 



c. 



ORGANIZATIONAL STRUCTURE 



Two types of organizational structures can be examined. One is the authorities 
and personnel that design, plan, and execute the FBEs and the other is the organizational 
structure of the FEE itself. The organizational structure of the experiment is adaptable to 
the scenario and objectives addressed by the experiment’s concept of operations. 
Therefore, the objectives determine the procedures followed by the personnel taking part 
in the experiment and the flow of information during the exercise. 

1. Design, Planning, and Execution 

The structure of the authorities ruling over the FEE organization and its 
procedures begins with strategic level involvement. 

The MEC is a CNO sponsored command chartered to conduct FEEs that examine 
new technologies and new operational concepts in the context of the Navy of the future. 
The results of FEEs are used to accelerate the delivery of innovative warfare capabilities 
to the fleet, identify concept-based requirements and evaluate new operational 
capabilities. [Ref. 10:p. 2] The MEC is responsible for designing and planning FEEs, as 
well as, coordinating the execution of these experiments in conjunction with the 
numbered fleet operational command elements (OCE), and analyzing and disseminating 
experiment results. 

2. The Experiments 

Although FEE architectures may differ due to changing objectives, the basic 
structures are similar. This research was based mostly on FEEs E, F, and G, with a 
concentration on FEE-G. 

The MEC and the Commander, U.S. SIXTH Fleet (C6F) jointly conducted Fleet 
Eattlc Experiment Golf (FEE-G). C6F Staff and the Navy Warfare Development 
Command focused on large themes of dynamic sensor management, decentralized 
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operations, and sensor, actor, and decision-maker synchronization. These themes were 
chosen to support an investigation of the emerging Network Centric Warfare (NCW) 
hypotheses in the pursuit of dynamic attack operations. [Ref. 10:p. 68] 

NCW focuses on shortening the Detect-to-Engage timeline. A critical part of 
shortening the timeline is being able to respond effectively against emergent high threat 
targets, or Time Critical Targets (TCT). 

The experiment focused on the Time Critical Targeting process using a dispersed 
command, sensors and engagement architecture to allow forces to respond quickly to 
fleeting targets and allow them to commit weapons and move sensors with knowledge of 
the impact those decisions would have. TCTs are a subset of Time Sensitive Targets. 
Time Sensitive Targets are fleeting targets that can only be effectively engaged during 
limited periods of time. TCTs are targets requiring immediate response because they pose 
(or soon will pose) a clear and present danger to friendly forces or are high-value fleeting 
targets of opportunity. [Ref. 9:p. 55] 

The primary goal was to apply the concepts of NCW to the Joint Task Force 
(JTF) structure. It included Intelligence, Surveillance, and Reconnaissance (ISR) asset 
management and allocation of resources, the use of ASW search methodology for land 
targets, weapon apportionment and sensor-weapon-target pairing. FBE-G applied a 
distributed Command and Control (C2) architecture, in contrast to the centralized C2 
architectures of earlier experiments. [Ref. 9:p. 4] 

Figure 1 depicts the traditional C2 structure for FBE-G with the inclusion of the 
concept of Maritime Control Centers (MCC). It is intended to empower individual units 
at various levels in the traditional C2 structure to act autonomously in the engagement of 
TCTs. The decentralized network is used to facilitate the process. While the traditional 
C2 structure remains in place for deliberate strikes, a network centric approach is 
employed in the specific case of TCTs to accelerate the speed of effects. [Ref. 9:p. 15] 

A Maritime Control Center is a combined sensor, engagement and command node 
that has been allocated and apportioned three key assets; Battlespace; Resources, both in 
sensors and weapons; and Autonomy of Action within Commander’s Guidance and Rules 
of Engagement. [Ref. 9:p. 16] 
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Figure 1 Command and Control Organization for FBE-G with MCC Concept Included 
(MCC Units Designated with Asterisk). After Ref. [9] 



Information was disseminated throughout the forces taking part in the exercise 
and each unit was granted some autonomy in deciding if they could effectively engage 
the targets. [Ref. 9:p. 5-7] This method of tasking was used in hopes of improving 
reaction times and effectiveness in engagements. 

Figure 2 is a representation of the sensor network for raE-G. The sensor grid 
was composed of decentralized, distributed sensor nodes. Sensor nodes were 
controlled/focused using distributed collaborative planning and a shared workspace. 
Sensor nodes directly controlled sensors or had access to the controllers for near real time 
flexing of assets. Sensor reassignment and geolocation requests were shared through a 
common workspace; sensor management chat-rooms. [Ref. 9:p. 9] 
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SENSOR NET 




D. DATA OF A FEE 

The amount of data produced during a fleet battle experiment can be 
overwhelming. Although extremely diverse in its types, formats, and sources, the data 
extracted from a FEE can be classified under two main categories: quantitative and 
qualitative data. 

Quantitative data makes up the greater part of the data and is the focus of this 
project. Quantitative data is typically raw, unprocessed data such as times, quantities, 
and locations. This type of information can be classified, stored, and queried more easily 
than qualitative data. It is factual, precise, and indisputable. Few things can be done with 
quantitative data except using it for decision support and assessment substantiation. It 
includes information on track, target and platform locations, munitions used, times of 
events, and other detailed information. 

Qualitative data includes opinions and assessments developed by personnel after 
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examination of massive amounts of information (quantitative data). Qualitative data is 
the result of analysis and is derived by experts based on their examination of the 
quantitative data. It may be a determination of the relevance or condition of an event or 
action. This kind of data is not always obtained from a specific source and may not be 
exact, factual, or precise in nature. It is debatable and irregular in its configuration, 
making it very hard to store for future referencing. It is filtered and assessed by 
knowledge experts and data collection personnel. 

1. Sources and Collection 



Fleet battle experiment data is produced at numerous locations by several sources. 
Sources of qualitative data include both civilian and military personnel taking part in the 
experiment as well as data collection and analysis personnel. Assessments, decisions, 
and other factors can be used to determine effectiveness and correctness of actions in 
addition to ascertaining if a problem was encountered in a system or process. 

Quantitative data is provided by, or can be extracted from, systems such as Land 
Attack Weapons System (LAWS) and Global Intelligence, Surveillance, and 
Reconnaissance System (GISRS). LAWS and GISRS provide the capability to manage 
weapon and sensor nodes real time, respectively. Tables 1 and 2 list the engagement and 
sensor nodes (platforms) and assets (weapons, sensors) contained by each. 



Platform 


Weapon 


USS Anzio 


TLAM/TTLAM/ERGM/LASM 


USS Cape St. George 


TLAM/TTLAM/ERGM/LASM 


USS Hartford 


TLAM/TTLAM 


NUWC (Sim SSN) 


TLAM/TTLAM 


P-3 


SLAM-ER 


TACAIR from USS Eisenhower 


JDAM/JSOW/PGM/SLAM-ER 


TACAIRfrom JFACC 


JDAM/JSOW/ PGM 


SOF 


Direct Action. 



Table 1 Engagement Nodes and Assets for FBE-G. 

Systems such as LAWS and GISRS, though they seemingly categorize and sort 
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data, are still reliant upon personnel for data entry. This introduces the possibility of data 
input irregularity and inaccuracy. Much information is left blank due to the rapid pace of 
activity during the experiment. This introduces the problem of data absence, which must 
be handled by the data collection personnel at a later time. They correct these problems 
by either inferring actions and results or attempting to gather the information from other 
sources, then back logging the information into the systems. 



Location 


Sensors 


CJTF (C6F onboard LaSalle) 


NTM, U-2 


JFACC (CCDG 5 on MTO) 


JSTARS GS, Global Hawk, Rivet Joint, HIRIS 


JFMCC (CCDG 8 on USS Eisenhower) 


APY-6, TARPS, Predator, EP-3 


USS Anzio 


VTUAV, 


USS Cape St. George 


VTUAV, 


CTF-69/USS Hartford 


ELI NT, SOF 


CTF-67/TSC Sigonella 


AlP P-3 


JSOTF (cell on MTO) 


SOF, UGS 


JAC Molesworth UK 


All National and Theater Sensors 



Table 2 Sensor Nodes and Assets for FBE-G. 

Other sources include records kept by personnel during the execution of the 
exercise and interviews or discussions held afterwards. Information gathered from 
personnel will tend to be more imprecise and difficult to sort, categorize, and store 
appropriately due to variation. 

The primary concern for the latest experiments has been track acquisition and 
reaction time reduction for assessments. Track acquisition, assessment, and engagement 
events produce the majority of the information gathered about the exercise. However, 
information concerning weapon utilization and effectiveness, message delays, and 
situational awareness is also determined and gathered by personnel. 

Manual recording of information by FBE personnel constitutes the bulk of the 
information collection effort. Data concerning tracks, targets, platforms, decisions, and 
many other factors is recorded on either forms that personnel are afforded or is entered 
into data repository systems such as LAWS. 
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Because of this methodology, data collection is inconsistent and the data entered 
may vary based on the person recording. This irregularity in data formats produces 
another problem at the time of data analysis. 

The latest version of LAWS, demonstrated in FBE-G, was utilized with some 
problems and many records were incomplete and inaccurate. Time formats were not 
clearly defined and fields were frequently left blank. Because of this, few tests could be 
run to determine the effectiveness of data analysis concerning the event timeline. 

Target Location Error information, provided by mensuration events, was entered 
into the remarks fields along with other random, unrelated information. Other 
information, such as platform identification and threat types, was formatted improperly 
making data filtering very difficult. Data transfer into event entities was also problematic 
and complicated because of the varying ways the data was recorded. 

2. Storage 

The classification of the data is an arduous task. Current methods have personnel 
studying this data and then categorizing it by source, subject, and type. 

Data storage is of great concern because access to data from past experiments 
could be used in designing and performing future experiments as well as providing 
decision support to participants. Analysis of data from various experiments is nearly 
impossible because of the sheer magnitude of information. Knowledge management 
experts and data collection personnel work hand in hand to try to find trends in the data 
and to determine difficulties in the processes. Difficulties could be attributed to system 
overloads or to human error. By storing data more effectively, the hopes are to make data 
access easier and data collection and categorization faster so data comparison and 
analysis can be performed more effectively and efficiently. 

Databases have been created to store the data from FBEs, but with limited 
success. These databases are designed mainly for storage of text strings. The 
information is categorized after the experiment is executed. Personnel collect, analyze, 
and categorize the data (mostly comments and assessments made by FBE participants) 
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based on the subject matter, the sources, and the conclusions made. This data is labeled 
accordingly and stored in a database that can reference it at a later date by those 
categories. 

This provides few querying options. The data can only be extracted in the form in 
which it is entered. Few, if any, conclusions can be drawn from the information and 
searches are predetermined to fit a specific request because no real links, other than 
categories, can be made between the different pieces of information. 

Data provided by systems, such as LAWS, is stored in those systems to be studied 
and disseminated by personnel. Associations between data in separate systems can only 
be made through human involvement. There is no existing way to manipulate and link 
the data across differing systems. Trends and logical relationships are difficult to 
determine, if at all possible. 

3. Information Flow 

The flow of data begins at the time of acquisition. A sensor acquires a track and 
information pertaining to the track, sensor, and time of acquisition are all logged. Once 
the target has been positively identified, it can be redesignated from a Unidentified 
Assumed Enemy (UAE) state to Hostile (HOS). At that point, the HIT will be 
redesignated as a target (TGT). This status will be updated in the Digital Track Folder 
(DTF) and made available to all engagement cells. [Ref. 9:p. 19] 

As shown in Figure 4, the track is then submitted (nominated) as a possible target 
by a GISRS terminal. Targets that are being actively prosecuted by a sensor will be 
additionally labeled as a High Interest Track (HIT). This will indicate that target 
mensuration and refinement are in progress. [Ref. 9:p. 19] 

Mensuration is used because some tracks may require more detail, or more 
precise information, pertaining to location, altitude, threat type, etc. A request for 
mensuration may be sent by the acquiring terminal to a Precision Targeting Workstation 
(PTW) or a Joint Targeting Workstation (JTW). Once a nomination is requested and 
mensuration information received, the track is determined to be a viable target or not. If 



13 



evaluated as a viable target, a fire command with pertinent information is sent to all 
platforms available. Providing all assets with as much information as possible so that, 
through autonomy, the most effective solution can be achieved is the net-centric 
ideology. Geosolution is considered complete when the target solution is good enough to 
engage with at least one available weapon. [Ref. 9;p. 19] 



FBE-G ENGAGEMENT PROCESS 




Figure 3 Detailed Engagement Process. After Ref. [9] 



The distinction between tracks and targets hinges on the assignment of a weapon 
to a track. FBE-G operations outline that a track was not considered a target until it was 
assigned a weapon. A platform to engage a target is assigned upon issuance of a fire 
command. Figure 5 displays the engagement net used for FBE-G consisting of the 
platforms and the weapons contained within them. For FBE-G all platforms were issued 
a fire command upon target acknowledgment. The “Target- Weapon” pairing, as referred 
to by FBE personnel, is represented in the schema by including the Weapon Type 



14 



attribute within the Target entity. 




At this point the autonomy aspect of the experiment is apparent. Once provided 
with firing information and given the authorization to fire, the individual platforms may 
determine if they are to engage the target. Upon engagement, or firing, information is 
continuously exchanged between platforms, sensors, and other systems to determine 
impact and assessment of the target after impact. 

All this information is time-stamped in order to be able to reproduce a time line of 
events at a later date and to determine any information bottlenecks, problems, or 
variation. This information is also useful in analyzing decision-making skills by the 
commanders and other decision-makers involved in the experiment. 

The information flow is reproduced in the database schema through the use of key 
fields that relate each entity and/or event. Time attributes in each object provide the 
timeline information that is crucial to event recreation. Figure 5 provides an overview of 
the TCT process from track acquisition to target engagement. 
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Figure 5 TCT Process Overview. After Ref. [9] 
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III. DATA AND APPLICATION DESIGN 



Databases have been utilized to store the data.from FBEs, but with limited 
success. These databases are primarily used for storage of text, and searches on these 
databases are subject-based, not event-based. No practical attempts had been made in 
designing a schema that would effectively support storing and querying FBE data and 
provide customized results to meet user needs. 

Relational databases store data in tables and enable applications written against 
this data to retrieve and update data from these tables. In order to maintain an effective 
and efficient database, data redundancy and inconsistency is eliminated by ensuring that 
fields related to the same category of data are stored in the same table. Relationships 
between tables allow for retrieval of related data stored in different tables. The types of 
relationships supported by a relational database are One-to-One, One-to-Many, and 
Many-to-Many. Many-to-Many relationships are implemented by creating two One-to- 
Many relationships and using a third table as an intersection to store the relationship 
between the two tables. Some common examples for each relationship are Employee-Job, 
Department-Employee, and Students-Classes, respectively. 

Normalization is an important concept to relational databases that eliminates 
inconsistencies and minimizes inefficiency. A fully normalized database stores each 
piece of information in the database once with each entity represented in a table that is 
uniquely identified by its own primary key. A primary key is an attribute that uniquely 
identifies a record. Normalized tables allow users to reference any piece of information 
in other tables by linking them together through the foreign keys. A foreign key is an 
attribute in a table that links to the primary key in another table. 

A. SCHEMA DESIGN 

A schema is a mapping of the database. It diagrams all the tables, fields, and 
relationships in the database. The schema for the prototype database was designed to 



17 



account for all entities and relationships that represent the architecture of the FBE. (See 
Figure 6.) This includes personnel, command cells, and roles occupied by personnel. 
Although these entities are not the primary points of interest of the prototype system, they 
are included in order to provide a complete picture of the structure and to allow for 
growth of the system in future development stages. 




Figure 6 Fleet Battle Experiment Database Schema with All Entities Represented. 



As previously mentioned, the schema is transaction- (event-) based. The data 
model represents the interactions between different systems and information sources by 
concentrating on the logical events and the information transferred rather than the 
physical objects manipulating the data. 
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Entities represented in the data model represent both logical and physical objects. 
Event entities such as track acquisitions, target nominations, firing commands, and target 
engagements are events that occur during the experiment and are examples of logical 
entities in the data model. Physical entities are those such as platforms, sensors, 
weapons, and personnel. 

In the remainder of this section we describe the main entities of a FBE and how 
they relate to each other. These core entities include Platform Type, Sensor Type, Threat 
Type, Weapon Type, weapon, sensor, and mensuration information managers. 
Acquisition, Mensuration, Nomination, Target, Route, Fire Command, Fire, Impact, and 
Reposition events, operational cell and command center nodes, and personnel. 

• The Platform Type entity defines the general types of ship, aircraft, or other 
vessels that will participate in the FBE. Information related to a type of 
platform is stored in this entity. For example, the USS Dwight D. Eisenhower 
is a specific vessel of type CVN. A platform is involved in acquisition, 
mensuration, fire command, impact, and reposition events. Since a platform 
type can contain other platform types as assets (i.e., a cruiser owns a 
helicopter as an asset), a recursive relationship needed to be established for 
the Platform Types entity. 

• A platform type entity can be related to many Platform entities which 
describe specific platforms. 

• The Threat Type entity represents the various expected threats that will play 
a part in the FBE. A type of threat can be part of many instances of 
acquisition events and is therefore a part of the acquisition event definition. 

• The Sensor Type entity defines the generic sensor types that will be used in 
the FBE. Any type of sensor can be used for multiple acquisition, 
mensuration, and impact events. 

• Similar to the Sensor Type entity, the Weapon Type entity describes a 
generic weapon that will be used in the FBE. A weapon type can be linked to 
many platforms and can be used against many targets. 

• A Mensuration event is the request for more precise information on a 

19 



particular track. An acquisition event may produce more than one 
mensuration event but a mensuration event is requested by a specific 
acquisition event and a GISRS or LAWS terminal. Mensuration requires the 
involvement of a platform and sensor, which may or may not be the same as 
the acquiring platform and/or sensor, and a PTW terminal. Any platform, 
sensor, and PTW terminal may be involved in more than one mensuration 
request. The inverse is not true, however. 

• Weapon, sensor, and mensuration information managers are known as 
LAWS, GISRS, and PTW Terminals, respectively. These terminals are 
used during mensuration, nomination, and route events. 

• An Acquisition event defines the acquisition of some threat or the creation of 
a track by a sensor. This entity is an intersection of the threat type, sensor 
type, and platform entities. It links a threat type with its acquiring sensor and 
the platform on which that sensor is located through the use of foreign keys 
from those entities. A platform, sensor type, and threat type can be linked to 
many acquisition events, but a specific acquisition event may only posses one 
platform, sensor type and threat type. 

• A Nomination event is the recommendation from some GISRS or LAWS 
terminal to designate an acquired track as a target. As with the mensuration 
event, it is initiated by an acquisition event. The nomination requires 
information from the mensuration event in order to arrive at a valid 
assessment of the track and determine if it should be considered a target. A 
nomination also requires a GISRS terminal for the data analysis. 

• A Target is a track that has been assigned a weapon by a nomination event 
(target-weapon pairing) and designated as a target for engagement. A target 
therefore links the track from an acquisition event (by way of a nomination 
event) and a weapon type. A specific nomination event can produce 
numerous targets if multiple attacks on the track are desired. A weapon type 
can be used in many target-weapon pairings and therefore linked to many 
targets. If more than one weapon is assigned to a track then the different 
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assignments are appointed different target ids. 

• Route events are the product of a LAWS terminal and contain flight and 
target information specific to the target-weapon paring of a Tactical 
Tomahawk Land Attack Missile to a target. 

• The Fire Command entity is an event identifying the assignment of a target 
to a specific platform (not a platform type). A target could create many fire 
commands (be assigned to many platforms), but the data used in this research 
only provided examples of one firing command per target id. 

• A Fire event is the actual firing of a weapon by a platform, or the engagement 
of the target. A firing command usually produces only one fire event because 
a firing of multiple rounds is recorded as one firing and the number of rounds 
is recorded as information for that event. 

• An Impact event is the result of a firing event. The assessment of the impact 
is part of this event and involves the use of a platform and a sensor for 
gathering data. 

• In order to keep information concerning weapon magazine information on 
platforms, an entity called Platform-Weapon Status was created. This links 
a specific platform with the weapon types used and could help track weapon 
usage during FBEs. 

• The Reposition event is used for information concerning platform movement 
during an FBE. Its information is specific to one platform for a specific range 
of time and can be used to track asset management and platform availability 
after the conclusion of the FBE. 

• Command Centers represent authority units in the FBE that make critical 
decisions and assessments. They control strategic decisions and asset 
management. The Common Operating Picture (COP) is in reality an 
assessment made by personnel who have studied information about the 
environment. It is the product situational awareness. The COP is defined by 
Command Centers. 
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• Operational Cells are similar to Command Centers but tend to control 
specific actions and platforms. They provide lower-level decision making 
power. They are linked to targets because of their influence in determining 
the viability of a target and the assignment of platforms to targets. 

• The Personnel entity contains information about specific individuals such as 
name, rank, and service. These individuals may be assigned many jobs, or 
Roles. Many Roles have the same titles because they perform the same tasks 
and responsibilities but on different platforms. Therefore, personnel and their 
roles are linked through the use of an entity called Role Assignment. This 
entity can then be related to specific platforms and cells as necessary. 

• The FBE entity was created to store FBE specific information such as dates 
and location for the experiment. The entities Acronyms, Data Types, 
Initiatives, Objectives, and Questions hold respective information pertaining 
to the experiment. They are entities created to store specific information and 
have no necessary relationships with any of the other entities. 

B. APPLICATION DESIGN 

Due to the lack of user defined requirements for application implementation, 
some assumptions had to be made regarding querying and reporting capabilities. 



1. Querying 

Due to the novelty of the concept for this system, FBE personnel had a difficult 
time formulating application requirements and provided few suggestions concerning 
system-querying capabilities. Several querying options were formulated and presented to 
the user. These suggestions were acknowledged as likely and beneficial options so they 
were implemented as predefined, or “canned”, queries. In general, these queries extract 
information on the main entities based on different arguments or parameters. A detailed 
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description of these queries is presented in the following chapter. 

In order to provide some flexibility for users a custom SQL-based query option 
was also included in the design of the system. 

2. Reporting 

The same situation occurred with report specifications. It was determined that 
reports should be provided for query results. Due to lack of requirements, reports that the 
author felt would be most useful were defined and discussed with the user. A decision 
was made to make their design as simple as possible in order to allow for future 
modifications. Simplicity was also a benefit in reflecting the information provided on- 
screen by the application. 

In the next chapter we discuss the implementation of the database and application 
designed in this chapter. 
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IV. DATA AND APPLICATION IMPLEMENTATION 



A prototype Database Management System (DBMS) was implemented from the 
data and application design described .in the previous chapter. A coupling of Microsoft® 
Visual Basic and Microsoft® Access 97 was chosen in order to combine the power of 
Microsoft® Access 97 database processing capabilities with the ease of user interface 
development of Microsoft® Visual Basic in order to meet the users’ needs. The 
simplicity of connecting the two applications was also an important consideration. 

By keeping the database separate from the application, the database could be 
migrated to other SQL-based databases without the need to re-write or modify the 
application. 

A. DATABASE IMPLEMENTATION 

The database for the prototype system was implemented in Microsoft Access 97. 

It is a relational database management system and was chosen primarily because of its 
popularity, flexibility, and wide use. Data produced during the FBE is categorized and 
stored by the logical event that produced it. 

Since the storing of data from multiple FBEs in a single database could eventually 
tax the speed and querying capabilities of the system, it was decided that each FBE would 
have its own database. In other words, a database will contain data from only one FBE. 
Some reasons for this decision are I) it keeps the volume of data in a database to a 
manageable size so that queries are not slowed and 2) it allows for changes to be made 
easily for each experiment. The latter reason addresses the differences in FBE objectives 
and the changing information requirements to support those objectives. A third reason is 
somewhat related to the latter. If a specific record of an entity is altered between FBEs, 
then that record’s information pertaining to the previous FBE will be lost. This makes 
the linking of that entity’s information to prior FBEs impossible. 

The design and military structure of FBEs assigns discrete names or designations 
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to the units involved, which provides a unique identifier, or primary key, for each entity. 
This simplified the task of determining entity classifications and ensuring distinctions 
among instances of the same entities. 

Twenty-five tables, representing logical events and physical entities in the FBE 
architecture, were created in order to accommodate the normalized data. However, other 
FBE information pieces specific to the FBE design were necessary so additional tables 
were created. These include FBE attributes (such as dates and title), acronyms, 
initiatives, objectives, and questions. Two more tables were added to support data import 
and filtering from LAWS and other possible sources. 

For the implementation of the database schema, twenty-one entities were 
concentrated on with fifteen of those having relationships with each other. I will now 
discuss the implementation of the entities as tables in an Access database. (Figure 7) 

• The Platform Type table contains information related to a type of vessel that 
is used in the FBE. The primary key for this table is the asset’s generic 
acronym used by the military. For example, CVN (aircraft carrier, nuclear), 
CG (guided-missile cruiser), and SSN (fast-attack submarine, nuclear). 

• The Sensor Type table contains the generic sensor types that will be used in 
the FBE. The primary key for this table is the typical name or acronym used 
by personnel. Examples include UAV (unmanned aerial vehicle) and RECO 
(reconnaissance personnel). 

• The Threat Type table contains the various expected threats that will play a 
part in the FBE. The primary key used is the generic designator used to 
address a threat such as NODONG (a type of ballistic missile), SAMI (a 
surface-to-air missile), or MOBRDR (acronym used for mobile radar). 
Attributes for threat description and capabilities more clearly define this table. 
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Figure 7 Schema of Entities Implemented in Prototype Database. 



• As with the previous tables, the Weapon Type table defines a nonspecific 
entity and contains weapons that will be used in the FEE. The primary key is 
the military term applied to the weapon. Examples include: AGM (air-to- 
ground missile), AIM (air interceptor missile), and SLAM (Stand-off Land 
Attack Missile). Weapon Type also includes a Description attribute. 

• LAWS, GISRS, and PTW Terminal tables represent weapon, sensor, and 
mensuration information managers, respectively. These terminals are used 
during mensuration, nomination, and route events. The LAWS, GISRS, and 
PTW Terminal entities all possess like attributes. They are defined by their 
location and functionality attributes. For future schema development efforts, 
these terminal types could be implemented as one table with a defining 
attribute determining the type of terminal as a LAWS, GISRS, or PTW/JTW. 

• The Platform table contains occurrences of a specific platform type. The 
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primary key for this table is the platform’s designator. For example, the USS 
Dwight D. Eisenhower is a specific vessel of type whose designator is CVN- 
69. A foreign key from the platform type table provides information specific 
to the type of platform. The platforms specific mission or specialty can also 
be stored in this table. For data importation from LAWS, a table containing 
the LAWS designation for the platform is also included in the table’s 
definition. 

An Acquisition event table defines the acquisition of a track by a sensor. 

This table’s primary key is a concatenation of an abbreviation distinguishing it 
as an acquisition event and an AutoNumber counter kept by the database. The 
table contains three foreign keys that links a threat type with its acquiring 
sensor and the platform on which that sensor is located. Other significant 
attributes include the track id determined by the acquiring terminal and track 
information such as altitude, speed, and location. 

A Mensuration event table is the request for more precise information on a 
particular track. The instance of a mensuration event links a platform and 
sensor, which may or may not be the same as the acquiring platform and/or 
sensor, and a PTW terminal. Its primary key is also a concatenation of an 
abbreviation and an AutoNumber counter. Foreign keys from the mentioned 
entities help define the event. A foreign key specifying a GISRS terminal as 
an information source is also an attribute of this table. Attributes to store data 
concerning information request and receipt times are present in this table as 
well. 

The Nomination event table uses a primary key composed in the same 
manner as the acquisition and mensuration primary keys. Because a 
nomination requires information from a mensuration event, a foreign key from 
the mensuration table is included. A foreign key from the acquisition table is 
also an attribute. An assesment field is provided for qualitative information 
that may have had a specific influence on the nomination event. 

The Target table links the track from an acquisition event (by way of a 



nomination event) and a weapon type by including foreign keys from both the 
nomination table and the weapon type table. The primary key is specified by 
GISRS and LAWS terminals. Post-mensuration information including time of 
designation as a target, location, speed, and “No Later Than” time are stored 
in this table. The “No Later Than” time specifies a time at which, if the target 
has not been engaged, it ceases to be a time critical target. 

• The Fire Command table primary key is created in the same manner as the 
other event primary keys. This table contains the platform and target table 
primary keys as foreign keys. It also contains attributes stating the time the 
command was sent and received, as well as if a weapon was actually launched 
at the target. 

• A Fire event table is the actual firing of a weapon by a platforrh, or the 
engagement of the target. Its primary key is a concatenation of an 
abbreviation and an AutoNumber. The Fire Command that produced the Fire 
event is stored in this table using a foreign key. The number of rounds and 
time of firing is also recorded. 

• An Impact event table is the result of a firing event. Its primary key 
resembles those of the other event tables. The assessment of the impact 
involves the use of a platform and a sensor for gathering data. Foreign keys 
for both are stored in this table as is the target impact time and the fire event 
that led to the impact event. 

• The FBE table uses the FBE name (i.e., E, F, G) as its primary key. It 
contains the start and end dates and the location of the experiment. The 
Acronym, Data Types, Initiatives, Objectives, and Questions tables contain 
memo data type fields that hold respective information that can be search as 
strings. 



Referential integrity requires that records in tables providing information for other 
tables must exist prior to the creation of the record in the dependent table. Information 
flow dictates which entities need to be created prior to others. The schema follows the 
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logical chain of events of the experiment therefore events must be created in the order 
dictated by the information flow - acquisition, mensuration, nomination, target, fire 
command, fire, impact. 

Data types and formats for all attributes were determined by the information 
sources and their current formats and usage of the data. Because of the variance in data 
types and formats table attributes were weakly defined. Most attributes are of text data 
type to allow for manipulation of the data and a broader variety of formats. This is true 
of time information. Access and Visual Basic do not recognize time information stored 
in Military Date-Time format. Therefore, the times in the database are stored as text 
fields. This means that any analysis or comparison on this type of information must be 
performed by the application by using string manipulation. 

B. APPLICATION IMPLEMENTATION 

The application interface for the DBMS was designed and impemented using 
Microsoft® Visual Basic 6.0: Professional Edition. 

The application involved the creation of twenty-eight graphic user interface (GUI) 
forms that allow the user to add, delete, modify and query the data stored in the database. 
The application uses both Visual Basic data objects and virtual recordsets in order to 
access the database. Controls such as text boxes, dropdown list boxes, command buttons, 
and menus are used to facilitate data entry and modification, as well as form and record 
navigation. 



1. Forms 

Upon execution of the application executable program file, a module containing 
the Main sub procedure is used to determine the database file to be opened by the 
application. An Open File dialog box, as in Figure 8, is displayed where the user can 
browse the computer files available for the database file they desire. When the user 
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selects the database file, the filename is stored as the database name and recordsets are 
updated by the application to contain the information from the database selected. (Should 
the user not choose a database file, the main form will be displayed but no search or 
editing options will be available because there is no database selected. The user can still 
choose to open a database y using the File menu option.) 

The main interface form (Figure 9) is then displayed. The user can now use the 
application to modify and search the selected database. 



Open 




i 



File name: 
nies of type: J D atabase files (“. mdb) 

r~ Open as read-only 



Open 



3 



Cancel 



Figure 8 Open Database Dialog Box Displayed at Run-time. 
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Figure 9 Main Interface Form. 



Forms designed for record addition, modification, and deletion (Figure 10) are 
available to the user under the Add/Delete menu option on the main form. Forms created 
include Acquisition, Mensuration, Nomination, Fire Command, Fire, and Impact Event 
Update forms, a Target Record Update form, a Platform Information Update form. 
Platform, Sensor, Threat, and Weapon Types forms, and Acronym, Data Types, 
Initiatives, Objectives, and Questions forms. 

These forms make use of text boxes and dropdown list boxes to ease data entry 
and modification as well as displaying update, save, add and delete buttons to manipulate 
the records. Data objects, which also serve for record navigation, and virtual recordsets 
are all updated at the time of the form’s load event procedure. They provide the data 
links between the Visual Basic form and the database. 

The Add Event button will enable all the data entry fields and clear their contents 
in preparation for addition of a new record. Upon data entry completion the user must 
then select the Save Event button to add the record. The Delete Event button will warn 
the user before submitting the record deletion to the database. 
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Figure 10 Example Update Form (Acquisition Event Update Form). 



To Update or Edit a previously existing record, the user must select the Update 
button. The Update button’s caption will then automatically change to “Submit”. After 
completing all edits, the user will select the Submit button in order to commit the 
changes. 

The user may choose to view all targets stored in the database by selecting the 
View menu option and choosing Targets. This will display the Targets window seen in 
Figure 11. When the target window appears the user may display the time line of events 
corresponding to a specific target by double-clicking the target record they desire. The 
double-click action will display another window (Figure 12) with the time data for every 
event pertaining to that target from acquisition to impact. 
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Figure 11 Targets Window. 



If the user desires to reduce the number of targets displayed by sorting the records 
according to some specific criteria, they can choose the filter option under the File menu 
in the Targets window. This will open the Filters window (Figure 13) and allow them to 
choose which filters to apply and what criteria to filter with. They can select which 
filters to activate by checking the appropriate boxes. Once the box is checked, they can 
then enter or select the criteria they wish to filter with. 

The Apply button will activate the filters that are checked but will keep the Filters 
Window open. The OK button will apply the filters and return the user to the Target 
Records Window. The Cancel window will return the user to the Target Records 
Window without altering any filter settings. 
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Figure 12 Target Timeline Window. 
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Target Record Filters 



r~ Time Range: 



Acqiisition Time: (Da^^/Time) 

After: | | Before: j" 

Target NLT Time: 

After: | | Before: 



n Description: 




Latitude Range: 

From: j f 

Longitude Range: 

From: | [ 



Cancel Apply 



Figure 13 Target Record Filters Window. 




2. Menus 

The application was implemented as a menu driven application with the main 
form as the base of form connectivity. By using the main form’s menu options users can 
reach the predefined query form, the SQL custom query form, and all entity update 
forms. They can also view the list of targets found in the database and even have limited 
control of the data importation process. They can do all these things with the use of the 
menus available on the main form. Menu options include opening a different database, 
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searching the database using "canned" (previously defined) queries or custom SQL 
queries, editing the database records, and/or populating the database with new 
information from other systems using text file importation. 



Main Form 



1 — . _ “ J . . 1. . 

File I Add/Delete Forms j View Targets 



Open New File 
"Canned” Queries 
SQL Custom Query 


Events 


Acronym Update Form 
Data Types Update Form 
Platform Update Form 
Other Entity Update Forms... 


Filters 


i 

Query Output Form 


1 

Acquisition Update Form 
Mensuration Update Form 
Nomination Update Form 
Other Event Update Forms... 





Data 



Sort 

T ransfer 
Populate Tables 



Figure 14 Hierarchical Chart of Menu Options. 



The previously mentioned data import capability is based on a capability offered 
by the latest version of LAWS. The export facility takes user-selected fields from the 
LAWS system database and exports them to a comma delimited text file. Upon creation 
of the text file, the information can be imported to a database table. The table used for 
data import was specifically designed for the exported LAWS data fields, therefore 
adjustments to the source code would have to be made in order to allow for extra fields or 
for the integration other systems as data sources. However, the system is operational 
with the LAWS export text file format. (The database table is named LAWS in the 
prototype database schema.) Once the table is filled, the data can be sorted and filtered 
for completeness and formatting using the Transfer and Sort options available under the 
Data menu item on the Main form. After filtering, the information can be separated and 
disseminated throughout the database by using the Populate Tables option under the Data 
menu item. This feature ensures that all the information is sent to the appropriate tables 
in the database and in the appropriate order as dictated by referential integrity. 
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3. 



Queries 



If the user chooses the query option from the main form, then another window 
(Figure 15) displaying the provided queries appears. Option buttons allow the user to 
select the desired query. When an option button is selected, the appropriate controls will 
become enabled. The user selects the criteria and runs the query using a command 
button. The Submit Query button’s code module contains a Select Case clause with 
predefined SQL statements. The option buttons are actually an array of controls whose 
index determines the case to be selected in the source code and therefore the SQL 
statement to be used. The form’s controls provide the arguments used in the statements. 




Figure 15 “Canned” Queries Form. 
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Query results appear in the window shown in Figure 16. Fields displayed 
are predetermined and set in the source code (hard-coded). These queries do not provide 
the user with the option of selecting what information is displayed; only the criteria by 
which to search the database. 



ii. Queiy Output 
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091227 


4 


AE00040 


GI2104 CVN-B9 




5 


AE00041 


GI2111 CVN-B9 




6 


AE00042 


GI2118 CVN-B9 




7 


AE00043 


GI2125 CVN-B9 












Figure 16 “Canned” Query Output Window. 

The user selects which query they would like to use by selecting the appropriate 
option button. The applicable controls are then enabled and the user chooses the criteria. 
They then select the Submit Query button and the Query Output Window is displayed 
with the results of the query. 

Four of the eight “canned” queries provided filter acquisition events. These 
queries filter the acquisitions by the acquiring platform, sensor type, both the acquiring 
sensor type and platform, and by the threat type of the acquired track. One query filters 
the target records by the weapon type assigned to, or paired with, the target. Two of 
queries concentrate on the nomination events - one searching for the nominations 
accepted as targets and the other searching for the nominations declined as targets. The 
last query on the “Canned” Queries form retrieves all impact events from the database. 

The queries are defined in the source code of the application using cases that 
contain SQL statements set specifically for the individual querying cases. 

For the custom query option, some considerations had to be taken. The biggest 
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difficulty would have been the presentation of the information, but using Visual Basics 
Data Bound Grid Control, the fields are updated through the use of a data object that 
recognizes the SQL-requested fields. 

Should the user select the SQL option from the Main form, the SQL Custom 
Query Window will be displayed. (Figure 17) This window contains a text box in which 
the user will enter the SQL statement desired. Once the statement is entered, the user 
selects the Search button and the information is displayed in the Data Bound Grid at the 
bottom of the form. 

Using this query method the user has more control over the fields to be displayed 
and can alter the criteria to suit their particular needs. However, those who do not fully 
understand the database schema may encounter some difficulties. 




Figure 17 SQL Custom Query Window. 
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When querying the database, the primary and foreign keys of each table provide 
links between the tables. Because the database is relational, table joins must be created to 
access information from multiple tables. 

In order to extract information from a table that is two relationship links away, it 
is necessary to include the necessary linking information from the intermediary table. 

For example, suppose you want to query information of an impact event and want to 
determine either the firing platform or the target fired upon. The links must first relate 
the Fire event that created the Impact event through the Fire attribute, or field, within the 
Impact event. Then, to retrieve the platform or target ids that reside in the Fire Command 
event another link must be made between the Fire event and the Fire Command event by 
using the Fire Command attribute, or field, within the Fire event. In Standard Query 
Language (SQL) the query would look like this: 

SELECT Impact.FireEvent, Fire.Fire, Fire.FireCommand, 

FireCommand.FireCommand, FireCommand.TargetId, Fire 

Command.FirerPlatform 

FROM Impact, Fire, FireCommand 

WHERE Impact.Fire = ‘BEOOOOl’ 

AND Fire.Fire = Impact.FireEvent 

AND FireCommand.FireCommand = Fire.FireCommand 

The SELECT section chooses the fields the user wants to retrieve and/or compare. 
The mOM section determines the tables in which to look in for the fields named in the 
SELECT portion of the SQL statement. WHERE is the comparison portion of the SQL 
statement specifying the criteria by which records will be eliminated or selected. 

The example SQL statement will query the database for the Targetid and 
FirerPlatform involved in the FireCommand event that produced the Fire event that led to 
the Impact event designated as ‘lEOOOOr. The statement selects the record in the Impact 
table with an id equal to ‘lEOOOOl’. It then compares this instance’s FireEvent attribute 
with Fire instances until it finds a match. It will then use the FireCommand attribute of 
that instance of the Fire event to find the matching FireCommand instance and provide 
the FirerPlatform and Targetid. 
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A query between tables that lie more than one table away from each other will 
require that each link between intermediary entities be represented in the SQL statement. 

The most important query for this system is also one of the most complicated - 
time queries. The format used for time data poses a significant problem for comparisons. 
The data is stored in Military Date-Time fashion. This is expressed as a string 
concatenation of the day, the time (24-hour), the time zone (Zulu (Z)), the month, and the 
year. In order to be able to compare these times and to perform any calculations, the 
string must be segmented into pieces and each portion compared with the appropriate 
section of another date-time string using string manipulation code. 

4. Reports 

It is possible to export database data to Microsoft Office applications from a 
Visual Basic application through the use of automation. Automation is a process that 
enables applications to communicate and exchange data with each other. 

The Visual Basic application sets a reference to the object library of the 
Automation server to be used; in this case. Word 97®. An instance of the Automation 
server object is created. A recordset object containing the data desired is also created. A 
code module within the Visual Basic application instantiates the object variables and 
sends the data to Word. The data is then exported from the recordset object to the 
Automation server. Word can then be used to produce and edit a document or merely as 
a print engine. [Ref. 4] Once the Visual Basic application opens a document in Word 
97® the manipulation of data and format of the report is controlled in the Word 97® 
application. An example of a report produced and formatted in Word 97® is shown in 
Figure 18. 

Information retrieved from the database using predefined queries, SQL custom 
queries, or data objects (recordsets) can be exported to a report (Word document) by 
using the Word 97 automation server. Reporting capability is available on forms 
displaying entity information by means of a menu option. 
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Modules 



5. 



Visual Basic is an event-driven programming language. Event-driven means that 
procedures (sections of code intended to perform a singular, specific action) are triggered 
by user interactions with the application’s user interface. User actions can vary from 
selecting a menu option to selecting a check box in the window. For Visual Basic, 
modules are groupings of multiple procedures that provide the functionality of a form. 
Consequently, a module exists for each form in the application. The modules that define 
the application are provided as Appendix B for this thesis. 
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Figure 18 Acquisition Events Report Created in Word 97® by Using Print Option on 
Acquisition Event Update Form (Figure 10). 
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c. 



POST-IMPLEMENTATION 



Once the forms were designed and most of the data manipulation code was 
implemented, the prototype was demonstrated. Feedback provided some new insight into 
application functionality and some requirement modifications. 

Difficult at best, application testing was time-consuming and imprecise. 
Troubleshooting was an arduous task because of the lack of available of data and the 
incompleteness of the little data that was available. However, the export facility 
available in the latest version of LAWS provided some data that could be manipulated, or 
massaged, into a usable form and used to test the database schema and the interaction of 
the application with the database. 

Forms properly interact with each other and limited error trapping has been 
included to eliminate database error terminations. 

Further discussions with FEE personnel and personal data analysis have 
demonstrated that the schema developed could be improved by combining some entities 
such as the LAWS, GISRS, and PTW terminal entities. Data such as time needs to be 
formatted in a different manner to allow for more effective querying. Other data fields 
need to be more clearly defined. A lot of fields are defined as text data types, which 
produces a lot of wasted memory space. This slows the system down and will be 
apparent once more data is entered. 
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V. CONCLUSION AND RECOMMENDATION 



A. CONCLUSION 

The database schema and application developed for this thesis are basic, yet 
functional. They provide a simple approach for extracting and updating FEE data using 
an easy to use graphical interface. 

The requirements analysis portion of this project was very frustrating. Users were 
not certain of what capabilities they wanted and had little understanding of the 
functionality a system such as this could provide. They provided very little input as to 
desired queries, reports, and interface design preferences. As a result the author had to 
spend a considerable amount of time understanding the application domain in order to 
suggest useful query and report options. 

The conceptual model should have been more clearly defined and the project’s 
implementation postponed, but time constraints required that the schema be implemented 
and tested quickly to allow time for the application’s development. This led to 
modifications being applied to the schema mid-way through the implementation of the 
application. 

The Visual Basic and Access coupling is a very effective method of implementing 
client/server systems such as this because it allows the programmer more control over the 
design of the interface and its interactions with the database. It also provides for 
program/data independence thus supporting upward scalability of the database. 

However, limitations of relational databases join processing can slow the speed of 
searches and other data management processes. Numerous table joins are necessary to 
navigate the database and, with large amounts of data in the tables, querying speed is 
likely to suffer. We do not however anticipate the volume of data from a single 
experiment to overwhelm the system since a database contains information from only one 
experiment. 

Another potential limitation is that SQL custom queries require the user to 



45 



understand the data model well and can become complicated and slow when information 
from two or more tables is required. 

Perhaps the greatest shortcoming of the Visual Basic and Access linkage is the 
quantity of error-trapping and data format-validation code that must be created. Data 
editing and updating method errors addressed by Access 97 can cause an error that may 
terminate the connection between the application data object and the database. 

The database schema was initially implemented in Access 2000, but Visual Basic 
6.0 does not seem to interface with Access 2000. This required that the database schema 
be reconstructed in Access 97. 

B. RECOMMENDATION 

It is my recommendation that the data model be examined with greater detail. In 
my opinion, the conceptual model should be researched independently of any 
implementation plans with the intention of defining data types and sources more clearly. 
Research should involve input from all data repository systems involved in FBEs, such as 
LAWS and GISRS, to determine the data overlap of the systems and the distinguishing 
data interests of each. 

The application provides limited sorting and filtering capabilities for the tables 
defined in the database. The data filtering option needs to be more robust and tested with 
sufficient feedback from the user. For example, the target record viewing filters are basic 
and a better format for time data would provide more effective querying capabilities and 
make the system more stable. 

The data “drill-down” functionality is also very basic. Better requirements 
definition needs to be the main focus of any follow-on work. With a clearer idea of what 
kind of data is wanted, the system functionality can be more focused and provide better 
results. 

The development effort for this system was implemented using an event-based 
methodology. Focus was placed on the information and its flow with less attention paid 
to the behavior of the system. With future alterations to war-fighting doctrine and FBE 
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architectures, the schema developed here may or may not accurately define the 
interactions among the entities involved. This schema should be meticulously tested in a 
FBE environment in order to reveal its limitations. 

The fourth phase of the larger effort will use an object-oriented approach. It will 
look at these relationships as interactions among objects. These objects would contain 
attributes (information, data) about themselves and behaviors that would define their 
interactions and information flow and manipulation. By focusing on both information 
and behavior it is possible to develop systems that are resilient and flexible to changes in 
structure and processes. 

I would also recommend that the system be migrated to the World Wide Web. 
This would increase the amount of input from interested parties and help define 
additional requirements. Schema limitations could also be scrutinized and additional 
entities and relationships added to supplement the data model. 
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APPENDIX A: GLOSSARY OF TERMS 



This appendix contains the definitions of abbreviations used in this thesis 



AO 


Area of Operations 


ANZ 


USS ANZIO 


ASM 


Anti-Ship Missile 


ASMD 


Anti-Ship Missile Defense 


ASW 


Anti-Submarine Warfare 


ATO 


Air Tasking Order 


BDA 


Bomb Damage Assessment 
Battle Damage Assessment 


BWC 


Battle Watch Captain 


C2 


Command and Control 


C2W 


Command and Control Warfare 


C4I 


Command, Control, Communications, Computers, and Intelligence 


C4ISR 


Command, Control, Communications, Computers, Intelligence, 
Surveillance and Reconnaissance 


CG 


Guided Cruiser 
Commanders Guidance 


CIC 


Combat Information Center 


CINC 


Commander-in-Chief 


CJTF 


Commander Joint Task Force 


COA 


Course of Action 


COMSEC 


Communications Security 


CONOPS 


Concept of Operations 


COP 


Common Operational Picture 


COTS 


Commercial Off-the-Shelf 


CSG 


USS CAPE ST GEORGE 


CTF 


Combined Task Force 
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CVBG 

CVW 

DFN 

DTG 

ERGM 

GBS 

GCCS 

GIS 

GPS 

GSIRS-C 

HARM 

HIT 

HOS 

IKE 

IMMM 

INTEL 

ITO 

IW 

JAC 

JDAM 

JECG 

JFACC 

JFC 

JFMCC 

JICO 

JIPTL 

JMCIS 

JOA 

JSOW 

JSTARS 



Aircraft Carrier Battle Group 

Carrier Air Wing 

Digital Fires Network 

Date Time Group 

Extended Range Guided Munition 

Global Broadcasting System 

Global Command and Control System 

Global Information System 

Global Positioning System 

Global ISR System-Capability 

High Speed Anti-Radiation Missile 

High Interest Track 

Hostile 

USS EISENHOWER 

In-flight Mission Modification Message 

Intelligence 

Integrated Task Order 

Information Warfare 

Joint Analysis Center 

Joint Direct Attack Munition 

Joint Experiment Control Group 

Joint Force Air Component Commander 

Joint Force Commander 

Joint Force Maritime Commander 

Joint Interface Control Officer 

Joint Integrated Prioritized Target List 

Joint Maritime Command Information System 

Joint Operations Area 

Joint Stand-Off Weapon 

Joint Surveillance, Target Attack Radar System 
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JSWS 


JSTARS Work Station 


JTCB 


Joint Targeting Coordination Board 


JTF 


Joint Task Force 


JTW 


Joint Targeting Workstation 


JWAC 


Joint Warfare Analysis Center 


LAMPS 


Light Airborne Multipurpose System 


LAN 


Local Area Network 


LANTIRN 


Low Altitude Navigation and Targeting Infrared for Night 


LAS 


USS LASALLE 


LASM 


Land Attack Standard Missile 


LAWS 


Land Attack Warfare System 


LOS 


Line of Sight 


LPMP 


Launch Point Mission Planner 


MBC 


Maritime Battle Center 


MCC 


Maritime Control Center 


MDS 


Mission Distribution System 


METOC 


Meteorological and Oceanographic 


MOE 


Measure of Effectiveness 


MPA 


Maritime Patrol Aircraft 


MPR 


Mission Planning Request 


NCA 


National Command Authority 


NLT 


Not Later Than 


NPS 


Naval Post Graduate School 


NRO 


National Reconnaissance Office 


NSFS 


Naval Surface Fires Support 


NSW 


Navy Special Warfare 


NUWC 


Naval Undersea Warfare Command 


NWC 


Naval War College 


OCE 


Officer Conducting Exercise 


OIC 


Officer-in-Charge 
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OOB 


Order of Battle 


OPCON 


Operational Control 


OPFOR 


Opposing Forces 


OPINTEL 


Operational Intelligence 


OPORD 


Operations Order 


OPSEC 


Operational Security 


OTCIXS 


Officer-in -Tactical Command Information Exchange System 


PAO 


Public Affairs Office 


PGM 


Precision Guided Munition 


PLI 


Position Location Information 


POC 


Point of Contact 


RFI 


Request for Information 


ROE 


Rules of Engagement 


SA 


Situational Awareness 


SAM 


Surface-to-Air Missile 


SAR 


Search and Rescue 
Synthetic Aperture RADAR 


SATCOM 


Satellite Communications 


SC 


Strike Controller 


SITREP 


Situation Report 


SLAM 


Stand-off Land Attack Missile 


SLAM-ER 


Stand-off Land Attack Missile Expanded Response 


SOF 


Special Operations Forces 


SOP 


Standard Operating Procedure 


SPAWARSYSCEN 


Space and Naval Warfare Systems Command 


SPECWARGRU 


Special Warfare Group 


SSM 


Surface-to-Surface Missile 


SSN 


Strike Submarine 


STOW 


Synthetic Theater of War 


TA 


Target Acquisition 



52 



TACAIR 


Tactical Aircraft 


TARPS 


Tactical Air Reconnaissance Pod System 


TBD 


To Be Determined 


TCC 


Time Critical Contact 


TCT 


Time Critical Target 


TEL 


Transporter Erector Launcher 


TLAM 


Tomahawk Land Attack Missile 


TLE 


Target Location Error 


TOT 


Time on Target 


TTF 


Time to Fire 


TTP 


Tactics, Techniques, and Procedures 


TST 


Time Sensitive Target 


TTLAM 


Tactical Tomahawk 


TTWCS 


Tactical Tomahawk Weapons Control System 


UAE 


Unidentified Assumed Enemy 


UAV 


Unmanned Aerial Vehicle 


USN 


United States Navy 
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APPENDIX B: APPLICATION CODE MODULES 



This appendix contains the Visual Basic code modules that define the data 
management system’s interface and functionality. 



'Module: Modulel.bas 

'Description: Displays an Open File dialog box upon execution 

' and loads the main form after setting the 

' database file name as a global variable. 

'Programmer: Kevin Colon 



Option Explicit 



Public db 

Public gstNewDatabase 
Public gstFBE 
Public bContinue 
Public bWord 
Public bText 



As Database 
As String 
As String 
As Boolean 
As Boolean 
As Boolean 



Sub Main() 

On Error GoTo HandleError 
gstNewDatabase = GetNewDat abase 

Set db = OpenDat abase (gstNewDatabase) 

'display Main form 
With frmMain 
. Show 

• Caption = . dlgDatabase . FileTitle Sc " Database" 
End With 

Sub__Exit : 

Exit Sub 



HandleError: 

Select Case Err. Number 

Case 3004, 3024, 3044 

gstNewDatabase = GetNewDatabase 
If gstNewDatabase = "" Then 

MsgBox "No database was selected.", vbExclamation, 

" Database Error " 



'disables options only available when a database is 

selected 

frmMain. mnuFileQueries . Enabled = False 
frmMain.mnuFileSQL. Enabled = False 
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frrnMa in. mnuUpdate. Enabled = False 
Resume Next 



location 



Else 

Set db = OpenDatabase (gstNewDat abase) 'new database 



'reenables options once a database is selected 
f rmMain.mnuFileQueries . Enabled = True 
frmMain.mnuFileSQL. Enabled = True 
frrnMa in. mnuUpdate. Enabled = True 



Resume 'open the database 

End If 
Case Else 

MsgBox Err .Description, vbOKOnly + vbExclamation, 
"Unexpected Error" 

End 'exit the project 

End Select 



End Sub 

Public Function Ge tNewDat abase ( ) As String 
'allows user to browse for database 
Dim iResp As Integer 

Dim stMsg As String 

stMsg = "Do you want to locate a database file?" 

iResp = MsgBox ( stMsg, vbYesNo + vbQuestion, "File or Path not 
found" ) 

'if user does not want to browse for file 
If iResp = vbNo Then 

'set database name to "blank" 

Ge tNewDat abase = " " 



Else 

'if user opts to find database 
With f rmMain . dlgDatabase 

.FileName = App.Path & "\G.mdb" ' gstNewDat abase 

.Filter = "Database files ( * .mdb) | * .mdb | All files 

^ J 1 ★ ★ H 



'if error encountered, skip next command 
On Error Resume Next 
. ShowOpen 

If Err. Number = cdlCancel Then 
GetNewDatabase = " " 

Else 



'set return filename to selected file 
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. FileName 



GetNewDatabase = 
End If 
End With 
End If 

End Function 









Option Explicit 

’ Reg Key Security Options... 

Const READ^CONTROL = &H20000 
Const KEY_QUERY_VALUE = &H1 
Const KEY_SET_VALUE = &H2 
Const KEY_CREATE_SUB_KEY = &H4 
Const KEY_ENUMERATE_SUB__KEYS = &H8 
Const KEY_NOTIFY = &H10 
Const KEY_CREATE_LINK = &H20 

Const KEY_ALL_ACCESS = KEY_QUERY_VALUE + KEY_SET_VALUE + 
KEY_CREATE_SUB_KEY + KEY_ENUMERATE_SUB_KEYS + KEY_NOTIFY + 
KEY_CREATE_LINK + READ_CONTROL 

’ Reg Key ROOT Types . . . 

Const HKEY_LOCAL_MACHINE = &H8000 0002 
Const ERROR^SUCCESS = 0 

Const REG_SZ = 1 ' Unicode nul terminated 



Const gREGKEYSYSINFOLOC = ” SOFTWAREXMicrosof tXShared Tools Location" 
Const gREGVALSYSINFOLOC = "MSINFO" 

Const gREGKEYSYSINFO = " SOFTWAREXMicrosof tXShared ToolsXMSINFO" 

Const gREGVALSYSINFO = "PATH" 

Private Declare Function RegOpenKeyEx Lib "advapi32" Alias 
"RegOpenKeyExA" (ByVal hKey As Long, ByVal IpSubKey As String, ByVal 
ulOptions As Long, ByVal samDesired As Long, ByRef phkResult As Long) 

As Long 

Private Declare Function RegQueryValueEx Lib "advapi32" Alias 
"RegQueryValueExA" (ByVal hKey As Long, ByVal IpValueName As String, 
ByVal IpReserved As Long, ByRef IpType As Long, ByVal IpData As String, 
ByRef IpcbData As Long) As Long 

Private Declare Function RegCloseKey Lib "advapi32" (ByVal hKey As 
Long) As Long 



Private Sub cmdSysInf o_Click ( ) 
Call StartSysInfo 
End Sub 



' Module : 

’ Programmer : 



f rmAbout . f rm 
Kevin Colon 



string 

Const REG_DWORD = 4 



' 3 2 -bit number 
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Private Sub cmdOK_Click { ) 

Unload Me 
End Sub 

Private Sub Form_Load{) 

Me. Caption = "About " & App. Title 

IblVersion. Caption = "Version " & App. Major & & App. Minor & ". 

5 c App. Revision 

IblTitle .Caption = App. Title 
End Sub 

Public Sub StartSysInf o { ) 

On Error GoTo SysInfoErr 

Dim rc As Long 

Dim SysInfoPath As String 

/ fpQ System Info Program PathXName From Registry. . . 

If GetKeyValue(HKEY_LOCAL_MACHINE, gREGKEYSYSINFO , gREGVALSYSINFO , 
SysInfoPath) Then 

, rpQ Q 0 ^- System Info Program Path Only From Registry. , . 

Elself GetKeyValue(HKEY_LOCAL_MACHINE, gREGKEYSYSINFOLOC , 
gREGVALSYSINFOLOC, SysInfoPath) Then 

' Validate Existence Of Known 32 Bit File Version 
If (Dir {SysInfoPath & "\MSINF032.EXE") <> "") Then 
SysInfoPath = SysInfoPath & "\MSINF032.EXE" 

' Error - File Can Not Be Found. . . 

Else 

Goto SysInfoErr 
End If 

' Error - Registry Entry Can Not Be Found. . . 

Else 

GoTo SysInfoErr 
End If 



Call Shell (SysInfoPath, vbNormal Focus) 

Exit Sub 
SysInfoErr : 

MsgBox "System Information Is Unavailable At This Time", vbOKOnly 
End Sub 



Public Function GetKeyValue (KeyRoot As Long, KeyName As String, 
SubKeyRef As String, ByRef KeyVal As String) As Boolean 

Dim i As Long ' Loop 

Counter 

Dim rc As Long ' Return 

Code 



Dim hKey As Long 
An Open Registry Key 
Dim hDepth As Long 
Dim KeyValType As Long 
Of A Registry Key 

Dim tmpVal As String 



' Handle To 



' Data Type 
' Tempory 
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' Size Of 



Storage For A Registry Key Value 
Dim KeyValSize As Long 
Registry Key Variable 



' Open RegKey Under KeyRoot {HKEY_LOCAL_MACHINE . . . } 



rc = RegOpenKeyEx (KeyRoot , KeyName, 0, KEY_ALL_ACCESS , hKey) ' Open 
Registry Key 

If (rc <> ERROR_SUCCESS) Then GoTo GetKeyError ' Handle 

Error. . . 

tmpVal = String$ ( 1024 , 0) ' Allocate 

Variable Space 

KeyValSize = 1024 ' Mark 

Variable Size 



' Retrieve Registry Key Value... 



rc = RegQueryValueEx (hKey, SubKeyRef, 0, _ 

KeyValType, tmpVal, KeyValSize) 

Get/Create Key Value 

If (rc <> ERROR_SUCCESS) Then GoTo GetKeyError 
Errors 

If (Asc (Mid (tmpVal , KeyValSize, 1)) =0) Then 
Adds Null Terminated String... 

tmpVal = Left (tmpVal, KeyValSize - 1) 

Found, Extract From String 
Else 

Does NOT Null Terminate String... 

tmpVal = Left (tmpVal, KeyValSize) 

Found, Extract String Only 
End If 



' Handle 



' Win95 
' Null 
' WinNT 
' Null Not 



' Determine Key Value Type For Conversion. . . 



Select Case KeyValType 
Data Types . . . 

Case REG_SZ 

Registry Key Data Type 
KeyVal = tmpVal 
String Value 

Case REG^DWORD 
Word Registry Key Data Type 

For i = Len( tmpVal) To 1 Step -1 

Each Bit 

KeyVal = KeyVal + Hex (Asc (Mid (tmpVal , i, 1) ) ) 
Value Char. By Char. 

Next 

KeyVal = Format$ ( "Sch" + KeyVal) 

Double Word To String 
End Select 



' Search 
' String 
' Copy 
' Double 
' Convert 
' Build 

' Convert 
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' Return 



GetKeyValue = True 
Success 

rc = RegCloseKey (hKey) 
Registry Key 

Exit Function 

GetKeyError: ' Cleanup After 

KeyVal = "" 

Return Val To Empty String 
GetKeyValue = False 
Failure 

rc = RegCloseKey (hKey) 
Registry Key 
End Function 

Private Sub Form_Unload (Cancel As 
Unload Me 
End Sub 



' Close 
' Exit 

An Error Has Occured. . . 

' Set 
' Return 
' Close 

Integer) 



'Module : frmAcqEvents . frm 

'Description: Allows user to access acquisition event 

' records for addition, deletion, and 

' modification. 

'Programmer: Kevin Colon 



Option Explicit 

Private WordApp As Word. Application 

Private Doc As Word. Document 

Private Sel As Word. Selection 

Private Sub cboPlatf orms_Click ( ) 

If cboPlatf orms .Listindex >= 0 Then 
txtPlatformId = cboPlatf orms . Text 

End If 



End Sub 

Private Sub cboSensTypes_Click ( ) 

If cboSensTypes . Listindex >= 0 Then 

txtSensorTypeld = cboSensTypes . Text 

End If 

End Sub 



60 



Private Sub cboThreatTypes_Click ( ) 

If cboThrea t Types . Li St Index >= 0 Then 

txtThreatTypeld = cboThrea tTypes . Text 

End If 

End Sub 

Private Sub cmdAdd_Click ( ) 

On Error GoTo HandleAddErrors 

If cmdAdd. Caption = "&Add Event" Then 

datAcqEvents .Recordset .AddNew 
cboPlatf onus . Enabled = True 
cboPlatf onus . Li St Index = -1 
cboThreatTypes . Enabled = True 
cboThreatTypes . List Index = -1 
cboSensTypes . Enabled = True 
cboSensTypes . Listindex = -1 
txtTrackId = True 
txtAssess . Enabled = True 
txtAltitude . Enabled = True 
txtLocat ion. Enabled = True 
txtPriority. Enabled = True 
txtSpeed. Enabled = True 
txtTime . Enabled = True 
cmdUpdate . Enabled = False 
cmdSave . Enabled = True 
cmdDel . Enabled = False 
cmdAdd. Caption = "&Cancel" 
mnuFile. Enabled = False 
datAcqEvents . Enabled = False 



Else 

datAcqEvents . Recordset . CancelUpdate 
datAcqEvents . Enabled = True 
cboPlatforms . Enabled = False 
CboThreatTypes . Enabled = False 
CboSensTypes . Enabled = False 
txtTrackId = False 
txtAssess. Enabled = False 
txtAltitude. Enabled = False 
txtLocation. Enabled = False 
txtPriority . Enabled = False 
txtSpeed. Enabled = False 
txtTime . Enabled = False 
cmdUpdate. Enabled = True 
cmdSave. Enabled = False 
cmdDel . Enabled = True 
cmdAdd. Caption = ”&Add Event" 
mnuFile . Enabled = True 
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cmdAdd . Set Focus 



End If 

cmdAdd_C lie k_Ex i t ; 

Exit Sub 

HandleAddErrors : 

Dim stMess As String 

stMess = "Cannot complete operation. " & vbCrLf & vbCrLf 
& Err . Description 

MsgBox stMess, vbExclamat ion, "Database Error" 

On Error GoTo 0 'turn off error trapping 



End Sub 

Private Sub cmdDel_Click ( ) 

'delete the current record 
Dim iResp As Integer 

On Error GoTo HandleDelErrors 

If datAcqEvents . Recordset . RecordCount > 0 Then 

iResp = MsgBox ( "Delete Event " & txtAcqEventId Sc "?", 

"Delete Event") 

If iResp = vbYes Then 

With datAcqEvents . Recordset 

.Delete 'delete current record 

.MoveNext 'move to following record 

If .EOF Then 

. MovePrevious 
If .BOF Then 

MsgBox "The recordset is empty.", 
vbinf ormation, "No Records" 

End If 
End If 
End With 
End If 

Else 

MsgBox "No records to delete.", vbExclamation _ 

, "Delete Event" 



End If 

cmdDel_Click_Exit : 

Exit Sub 

HandleDelErrors : 

Dim stMsg As String 

stMsg = "Cannot complete operation." & vbCrLf & vbCrLf 
Sc Err . Description 



vbYesNo, 
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MsgBox stMsg, vbExc lama t ion, "Database Error" 

On Error GoTo 0 'turn off error trapping 

End Sub 

Private Sub cmdSave_Click ( ) 

' save the current record 
On Error GoTo HandleSaveErrors 

If cboThreatTypes .List Index >= 0 And cboSensTypes . List Index >= 0 

Then 

If Val ( txtCounter) < 10 Then 

txtAcqEventId.Text = "AEOOOO" & txtCounter . Text 

Else 

If Val (txtCounter) < 100 Then 

txtAcqEventId.Text = "AEOOO" & txtCounter . Text 

Else 

If Val (txtCounter) < 1000 Then 

txtAcqEventId.Text = "AEOO" & txtCounter . Text 

Else 

If Val (txtCounter) < 10000 Then 

txtAcqEventId.Text = "AEO" & txtCounter . Text 

Else 

txtAcqEventId.Text = "AE" & txtCounter . Text 
End If 
End If 
End If 

End If 

datAcqEvent s . Recordset . Update 

Else 

MsgBox "You must select a threat and sensor before saving." 

, vbExclamation, "Add Acquisition Event" 

datAcqEvent s . Recordset . CancelUpdate 
End If 

cboPlatforms . Enabled = False 
cboThreatTypes . Enabled = False 
cboSensTypes . Enabled = False 
txtTrackId = False 
txtAssess . Enabled = False 
txtAltitude . Enabled = False 
txtLocation . Enabled = False 
txtPriority. Enabled = False 
txtSpeed. Enabled = False 
txtTime . Enabled = False 
cmdSave . Enabled = False 
cmdUpdate . Enabled = True 
cmdDel . Enabled = True 
cmdAdd. Caption = "&Add Event" 
mnuFile. Enabled = True 
da tAcqEvents .Enabled = True 
cmdAdd . SetFocus 
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datAcqEvents , Enabled = True 



cmdSave_Click_Exit : 

Exit Sub 

HandleSaveErrors : 

Dim stMess As String 
Select Case Err. Number 

Case 3022 'duplicate key field 

stMess = "Record already exists -- could not save> ' " 
MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

Case 3058, 3315 'no entry in key field 

stMess = "Select a Sensor type and threat before saving." 
MsgBox 'StMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

Case Else 

stMess = "Record could not be saved." & vbCrLf _ 

Sc Err .Description 

MsgBox stMess, vbExclamation, "Database Error" 
datAcqEvents . Recordset . CancelUpdate 
Resume Next 
End Select 

End Sub 

Private Sub cmdUpdate_Click ( ) 

If cmdUpdate . Caption = "ScUpdate" And _ 

datAcqEvents . Recordset . RecordCount > 0 Then 

cmdUpdate . Caption = "SuScbmit" 
cboPlat forms . Enabled = True 
cboThreatTypes . Enabled = True 
cboSensTypes . Enabled = True 
txtTrackId = True 
txtAssess . Enabled = True 
txtAltitude . Enabled = True 
txtLocation . Enabled = True 
txtPriority. Enabled = True 
txtSpeed. Enabled = True 
txtTime . Enabled = True 
cmdSave . Enabled = False 
cmdDel . Enabled = False 
cmdAdd. Enabled = False 
mnuFile. Enabled = False 
datAcqEvents . Enabled = False 
datAcqEvents . Recordset . Edit 



Else 

If datAcqEvents . Recordset . RecordCount > 0 Then 
datAcqEvents . Recordset . Update 
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cboPlatforms . Enabled = False 
cboThreatTypes . Enabled = False 
cboSensTypes . Enabled = False 
txtTrackId = False 
txtAssess . Enabled = False 
txtAltitude. Enabled = False 
txtLocation. Enabled = False 
txtPriority. Enabled = False 
txtSpeed. Enabled = False 
txtTime. Enabled = False 
cmdDel . Enabled = True 
cindAdd . Enabled = True 
cmdAdd . SetFocus 
cmdUpdate. Caption = “ScUpdate" 
mnuFile . Enabled = True 
datAcqEvents . Enabled = True 

End If 
End If 

End Sub 

Private Sub datAcqEvents_Reposition ( ) 
SetAcqEventsRecordNumber 

End Sub 



Private Sub FillPlat formCombo ( ) 

Dim iCount As Integer 
'fill the PlatType combo box 
cboPlatforms .Clear 

With datPlatforms 

.Refresh 'open database 

iCount = .Recordset . RecordCount 

'fill the list 
Do Until -Recordset . EOF 

If .Recordset ! Platform <> " " Then 

cboPlatforms . Additem . Recordset ! Platform 

End If 

. Recordset . MoveNext 

Loop 
End With 

End Sub 

Private Sub FillSensTypeCombo { ) 

Dim iCount As Integer 
'fill the PlatType combo box 
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cboSensTypes . Clear 

With datSensTypes 

.Refresh 'open database 

Do Until . Recordset , EOF 'fill the list 

If . Recordset ! SensorType <> "" Then 

cboSensTypes ,AddI tern . Recordset ! SensorType 

End If 

. Recordset .MoveNext 



Loop 
End With 

End Sub 

Private Sub FillThreatTypeCombo ( ) 

Dim iCount As Integer 
'fill the PlatType combo box 
cboThreatTypes .Clear 

With datThreatTypes 

.Refresh 'open database 

Do Until . Recordset . EOF 'fill the list 

If .Recordset IThreatType <> "" Then 

cboThreatTypes .AddI tern .Recordset IThreatType 

End If 

. Recordset . MoveNext 

Loop 
End With 

End Sub 



Private Sub Form_Load() 

datPlatf orms .DatabaseName = gstNewDatabase 
datSensTypes . DatabaseName = gstNewDatabase 
datThreatTypes , DatabaseName = gstNewDatabase 
datAcqEvents , DatabaseName = gstNewDatabase 

FillPlatf ormCombo 
Fill SensTypeCombo 
FillThreatTypeCombo 

With datAcqEvents 
. Refresh 

If Not . Recordset . EOF Then 
. Recordset .MoveLast 
, Recordset . MoveFirs t 
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End If 
End With 

SetAcqEventsRecordNumber 



End Sub 

Private Sub SetAcqEventsRecordNtunber ( ) 

Dim iRecordCount As Integer 
Dim iCurrentRecord As Integer 

iRecordCount = datAcqEvent s . Recordset . RecordCount 
iCurrentRecord = datAcqEvents . Recordset .AbsolutePosition + 1 



If datAcqEvents . Recordset . EOF Then 

datAcqEvent s . Caption = "No more records" 

Else 



datAcqEvents . Caption 
iCurrentRecord & _ 



= "Acquisition Event Record 
of " & iRecordCount 



End If 



Sc. 



End Sub 



Private Sub mnuFileBack_Click ( ) 

frmMain. Show 
f rmMa in . Enabled = True 
Unload Me 



End Sub 

Private Sub mnuPrint_Click ( ) 
f rmPrint . Show 

On Error GoTo mnuPrintErrors 

If bContinue = True Then 

With datAcqEvents . Recordset 

If bWord = True Then 

Set WordApp = New Word. Application 
WordApp . Documents .Add 
Set Doc = WordApp .Act iveDocument 
Set Sel = WordApp. Selection 

Doc . Tables . Add Range : =Sel . Range , NumRows : = . RecordCount , 

NumColumns : =11 
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cell 



cell 



cell 



Sel .TypeText Text ; = "Acquisition" 

Sel .MoveRight unit: =12 

Sel. TypeText Text : = "Trackid" 

Sel .MoveRight unit: =12 

Sel. TypeText Text : ="AcqTime" 

Sel .MoveRight unit: =12 

Sel. TypeText Text : ="ThreatType" 

Sel .MoveRight unit: =12 

Sel . TypeText Text : =" AcqPlatf orm" 

Sel .MoveRight unit: =12 

Sel. TypeText Text : ="AcqSensorType" 
Sel .MoveRight unit : =12 

Sel . TypeText Text : = " TrackLoca tion " 
Sel .MoveRight unit : =12 

Sel .TypeText Text : = "TrackAltitude" 
Sel .MoveRight unit : =12 

Sel .TypeText Text : ="TrackSpeed" 

Sel . MoveRight unit : =12 

Sel . TypeText Text ; = "TrackPriority" 
Sel .MoveRight unit: =12 

Sel .TypeText Text := "Remark" 

Sel .MoveRight unit: =12 

Do Until .EOF 

Sel. TypeText Text :=! Acquisition 
Sel .MoveRight unit: =12 



Sel. TypeText Text : = ITrackld 
Sel .MoveRight unit: =12 



Sel. TypeText Text : = ! AcqTime 
Sel .MoveRight unit: =12 



'12=next cell 
'12=next cell 
'12=next cell 
'12=next cell 
'12=next cell 
'12=next cell 
'12=next cell 
'12=next cell 
'12=next cell 
'12=next cell 
'12=next cell 

' 12=next 
' 12=next 
' 12=next 



Sel. TypeText Text : = IThreatType 

Sel .MoveRight unit: =12 '12=next 

cell 



Sel. TypeText Text :=! AcqPlatf orm 

Sel .MoveRight unit: =12 '12=next 

cell 
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Sel . TypeText Text : = I AcqSensorType 

Sel .MoveRight unit: =12 '12=next 

cell 

Sel. TypeText Text := ITrackLocat ion 

Sel .MoveRight unit; =12 '12=next 

cell 

Sel . TypeText Text : = ITrackAltitude 

Sel -MoveRight unit: =12 '12=next 

cell 

Sel . TypeText Text : = ! TrackSpeed 

Sel .MoveRight unit : =12 '12=next 

cell 

Sel. TypeText Text : = ITrackPriority 

Sel .MoveRight unit; =12 '12=next 

cell 

Sel. TypeText Text : = I Remark 

Sel .MoveRight unit: =12 '12=next 

cell 



-MoveNext 



Loop 

WordApp .Visible = True 
Set WordApp = Nothing 



Else 



"AcqTime"; Chr(9); _ 

Chr(9) ; _ 

"TrackLocation" ; Chr(9); _ 
Chr(9) ; _ 

Chr (9) 



If bText = True Then 

Open App.Path & "\AcqEvents.txt" For Output As #1 
Print #1, "Acquisition"; Chr(9); "Trackid" ; Chr(9) 
"ThreatType" ; Chr (9); "AcqPlatf orm" ; 
"AcqSensorType" ; Chr (9) ; 
"TrackAltitude" ; Chr (9) ; "TrackSpeed" ; 
"TrackPriority" ; Chr (9) ; "Remark" ; 



Do Until .EOF 

Print #1, 'Acquisition; Chr(9); _ 
! Trackid; Chr (9); _ 

1 AcqTime; Chr (9); _ 
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IThreatType; Chr(9); _ 

! AcqPlatf orm; Chr(9); 

! AcqSensorType ; Chr ( 9 ) ; 
! TrackLocation; Chr (9) ; 
!Trac3<Altitude; Chr(9); 
ITrackSpeed; Chr (9) ; _ 

I TrackPriority; Chr (9) ; 
! Remark; Chr (9) 



. MoveNext 

Loop 

Close #1 

End If 
End If 

.MoveFirst 

End With 

End If 

bContinue = False 
bWord = False 
bText = False 



mnuPrintErrors : 

Select Case Err. Number 
Case 94 

Sel.TypeText Text : = 
Resume Next 
End Select 



End Sub 

Private Sub txtPlatf ormId_Change ( ) 

'selects correct combo box listing 
Dim iindex As Integer 
Dim bFound As Boolean 

datPlat forms . Recordset .MoveFirst 
If txtPlatf ormid <> " " Then 

Do Until iindex = datPlatforms . Recordset . RecordCount Or bFound 
If datPlatforms . Recordset ! Platform = txtPlatf ormid Then 
cboPlatforms .Text = datPlatforms .Recordset ! Platform 
bFound = True 

Else 

datPlatforms . Recordset . MoveNext 
iindex = iindex + 1 

End If 

Loop 
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Else 



-1 



cboPlat forms .List Index = 

End If 

End Sub 

Private Sub txtSensorTypeId_Change ( ) 

'selects correct combo box listing 
Dim iindex As Integer 
Dim bFound As Boolean 
Dim num As Integer 

With datSensTypes 

. Recordset . MoveFirst 
If txtSensorTypeld <> " " Then 

Do Until iindex = cboSensTypes . ListCount Or bFound 
If .Recordset 1 SensorType = txtSensorTypeld Then 
cboSensTypes . Text = . Recordset ! SensorType 
bFound = True 

Else 

.Recordset .MoveNext 
iindex = iindex + 1 

End If 

Loop 

Else 

cboSensTypes .List Index = -1 

End If 
End With 



End Sub 

Private Sub txtThreatTypeId_Change ( ) 

'selects correct combo box listing 
Dim iindex As Integer 
Dim bFound As Boolean 

da t Threat Types . Recordset . MoveFirst 
If txtThreatTypeld <> "" Then 

Do Until iindex = cboThreatTypes . ListCount Or bFound 

If datThreatTypes . Recordset IThreatType = txtThreatTypeld 

Then 

CboThreatTypes . Text = 
datThreatTypes . Recordset ! ThreatType 
bFound = True 

Else 

datThreatTypes . Recordset . MoveNext 
iindex = iindex + 1 
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End If 



Loop 

Else 

cboThreatTypes . Listindex = -1 
End If 
End Sub 



'Module: f rmAcronyms . f rm 

'Description: Allows user to access acronyms 

' records for addition, deletion, and 

' modification. 

'Programmer: Kevin Colon 



Option Explicit 

Private Sub cmdAddAcronym_Click ( ) 

On Error GoTo HandleAddAcronymErrors 

If cmdAddAcronym. Caption = "&Add Acronym" Then 
datAcronyms . Recordset . AddNew 
txtAcronym. Enabled = True 
txtAcronym. SetFocus 
txtDescription . Enabled = True 
cmdAddAcronym. Caption = "ScCancel" 
cmdSaveAcronym. Enabled = True 
cmdDelAcronym. Enabled = False 
cmdUpdate . Enabled = False 
mnuFile . Enabled = False 
datAcronyms. Enabled = False 

Else 

datAcronyms . Recordset . CancelUpdate 
txtAcronym. Enabled = False 
txtDescription. Enabled = False 
cmdSaveAcronym. Enabled = False 
cmdDelAcronym. Enabled = True 
cmdUpdate . Enabled = True 
mnuFile . Enabled = True 

cmdAddAcronym. Caption = "Sc Add Acronym" 
cmdAddAcronym . SetFocus 
datAcronyms . Enabled = True 

End If 

cmdAddAcronym_Click_Exi t : 

Exit Sub 

HandleAddAcronymErrors : 

Dim stMess As String 

stMess = "Cannot complete operation. " Sc vbCrLf Sc vbCrLf 
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Sc Err . Description 

MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 



End Sub 

Private Sub cmdDelAcronym_Click ( ) 

'delete the current record 
Dim iResp As Integer 

On Error GoTo HandleDelAcronymErrors 

If datAcronyms . Recordset . RecordCount > 0 Then 

iResp = MsgBox ( "Delete Acronym " Sc txt Acronym. Text Sc "?" 
vbYesNo, "Delete Acronym") 

If iResp = vbYes Then 

With datAcronyms . Recordset 

.Delete 'delete current record 

.MoveNext 'move to following record 

If .EOF Then 

. MovePrevious 
If .BOF Then 

MsgBox "The recordset is empty.", 
vbinf ormation, "No Records" 

End If 
End If 
End With 
End If 

Else 

MsgBox "No records to delete.", vbExclamation _ 

, "Delete Acronym" 

End If 

cmdDelAcronym_Click_Exit ; 

Exit Sub 

HandleDelAcronymErrors : 

Dim stMsg As String 

stMsg = "Cannot complete operation." Sc vbCrLf Sc vbCrLf _ 

Sc Err .Description 

MsgBox stMsg, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

End Sub 

Private Sub cmdSaveAcronym_Click ( ) 

' save the current record 
Dim iResp As Integer 

On Error GoTo HandleSaveAcronymErrors 
If txtAcronym <> " " And txtDescription <> " 
txtAcronym = UCase ( txtAcronym) 
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Then 



iResp = MsgBox("Do you want to add " & txtAcronym & _ 

" to the database?", vbYesNo + vbQuestion, 
"Add Acronym") 

If iResp = vbYes Then 

datAcronyms . Recordset . Update 
End If 



Else 

MsgBox "You must enter an acronym and a description before 
saving. " , vbExclamation _ 

, "Add Acronym" 

datAcronyms , Recordset . CancelUpdate 
End If 

txtAcronym. Enabled = False 
txtDescription . Enabled = False 
cmdSaveAcronym. Enabled = False 
cmdDelAcronym. Enabled = True 
datAcronyms . Enabled = True 
mnuFile . Enabled = True 

cmdAddAcronym. Caption = "&Add Acronym" 
cmdAddAcronym. Set Focus 
cmdUpdate. Enabled = True 



cmdSaveAcronym_Click_Exit : 

Exit Sub 

HandleSaveAcronymErrors : 

Dim stMess As String 
Select Case Err. Number 

Case 3022 'duplicate key field 

stMess = "Record already exists -- could not save>'" 
MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

Case 3058, 3315 'no entry in key field 

stMess = "Enter a Acronym name before saving." 

MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

Case Else 

stMess = "Record could not be saved." & vbCrLf _ 

& Err. Description 

MsgBox stMess, vbExclamation, "Database Error" 
datAcronyms . Recordset . CancelUpdate 
Resume Next 
End Select 

End Sub 

Private Sub cmdUpdate_Click ( ) 

If cmdUpdate. Caption = "ScUpdate" And _ 

datAcronyms . Recordset . RecordCount > 0 Then 
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cmdUpda te . Caption = " Su&bmi t " 
txt Acronym. Enabled = True 
txtDescription . Enabled = True 
cmdDel Acronym. Enabled = False 
mnuFile .Enabled = False 
txtAcronym. Set Focus 
cmdAddAcronym. Enabled = False 
dat Acronyms. Enabled = False 
datAcronyms . Recordset . Edit 

Else 

If datAcronyms .Recordset .RecordCount > 0 Then 
datAcronyms . Recordset . Update 

txtAcronym. Enabled = False 
txtDescription. Enabled = False 
cmdDelAcronym. Enabled = True 
mnuFile. Enabled = True 
cmdAddAcronym. Enabled = True 
cmdAddAcronym. Set Focus 
cmdUpdate. Caption = "&Update" 
datAcronyms . Enabled = True 
End If 
End If 

End Sub 

Private Sub datAcronyms_Reposition ( ) 

Se t Ac r onymRec ordNumber 

End Sub 

Private Sub Foznn_Load() 

datAcronyms . DatabaseName = gstNewDatabase 

With datAcronyms 
. Refresh 

If Not . Recordset . EOF Then 
. Recordset . MoveLast 
. Recordset .MoveFirst 
End If 
End With 

S e t Ac r onymRec o r dNximbe r 



End Sub 

Private Sub Form_Un load (Cancel As Integer) 
frmMain.Show 
f rmMa in . Enabled = True 
Unload Me 

End Sub 

Private Sub mnuFileBack_Click ( ) 
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frmMain . Enabled = True 
Unload Me 

End Sub 

Private Sub mnuFileSearch_Click ( ) 

da tAcronyms . Recordset . FindFirst "[Acronym] = 

InputBox ( "Enter the Acronym", "Acronym Search") & "' 

If da tAcronyms . Recordset .NoMatch Then 

MsgBox "Acronym was not found.", vbOKOnly, "Acronym Search" 
da t Acronyms . Recordset .MoveFirst 'go to first record 

End If 

End Sub 

Private Sub SetAcronymRecordNumber ( ) 

Dim iRecordCount As Integer 
Dim iCurrentRecord As Integer 

iRecordCount = datAcronyms . Recordset . RecordCount 
iCurrentRecord = datAcronyms . Recordset .AbsolutePosition + 1 
If datAcronyms . Recordset . EOF Then 

datAcronyms .Caption = "No more records" 

Else 

datAcronyms . Caption = "Acronym " & iCurrentRecord & _ 

" of " 8c iRecordCount 

End If 
End Sub 



'Module: f rmDataTypes . f rm 

'Description: Allows user to access the data types 

' records for addition, deletion, and 

' modification. 

'Programmer: Kevin Colon 



Option Explicit 

Private Sub cmdAdd_Click ( ) 

On Error GoTo HandleAddErrors 

If cmdAdd. Caption = "ScAdd" Then 
datDataTypes . Recordset . AddNew 
txtDataType . Enabled = True 
txtDataType . SetFocus 
txtDescription . Enabled = True 
cmdAdd. Caption = "^Cancel" 
cmdSave . Enabled = True 
cmdDel . Enabled = False 
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cmdUpdate. Enabled = False 
mnuFile. Enabled = False 
datDataTypes. Enabled = False 



Else 

datDataTypes . Recordset . CancelUpdate 

txtDataType. Enabled = False 

txtDescription. Enabled = False 

cmdSave . Enabled = False 

cmdDel .Enabled = True 

cmdUpdate. Enabled = True 

mnuFile. Enabled = True 

cmdAdd. Caption = "&Add" 

cmdAdd. Set Focus 

datDataTypes. Enabled = True 

End If 

cmdAdd_C lie k_Exi t : 

Exit Sub 

HandleAddErrors : 

Dim stMess As String 

stMess = "Cannot complete operation. " & vbCrLf & vbCrLf 
& Err .Description 

MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 



End Sub 

Private Sub cmdDel_Click ( ) 

'delete the current record 
Dim iResp As Integer 

On Error GoTo HandleDelErrors 

If datDataTypes . Recordset . RecordCount > 0 Then 

iResp = MsgBox ( "Delete DataType " & txtDataType .Text & 
vbYesNo, "Delete DataType") 

If iResp = vbYes Then 

With datDataTypes . Recordset 

.Delete 'delete current record 

.MoveNext 'move to following record 

If .EOF Then 

. MovePrevious 
If .BOF Then 

MsgBox "The recordset is empty.", 
vbinf ormation, "No Records" 

End If 
End If 
End With 
End If 

Else 

MsgBox "No records to delete.", vbExclamation _ 



, "Delete DataType 



End If 

cmdDel_Click_Exit : 

Exit Sub 

HandleDelErrors : 

Dim stMsg As String 

stMsg = "Cannot complete operation." & vbCrLf & vbCrLf _ 

Sc Err .Description 

MsgBox stMsg, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

End Sub 

Private Sub cmdSave_Click ( ) 

' save the current record 
Dim iResp As Integer 

On Error GoTo HandleSaveErrors 

If txtDataType <> "" And txtDescription <> "" Then 
txtDataType = UCase ( txtDataType) 

iResp = MsgBox ("Do you want to add " Sc txtDataType Sc _ 
" to the database?", vbYesNo + vbQuestion, 
"Add DataType") 

If iResp = vbYes Then 

datDataTypes . Recordset . Update 
End If 



Else 

MsgBox "You must enter an DataType and a description before 
saving.", vbExclamation _ 

, "Add DataType" 

datDataTypes . Recordset . CancelUpdate 
End If 

txtDataType . Enabled = False 
txtDescription. Enabled = False 
cmdSave . Enabled = False 
cmdDel . Enabled = True 
datDataTypes. Enabled = True 
mnuFile . Enabled = True 
cmdAdd. Caption = "ScAdd" 
cmdAdd . Set Focus 
cmdUpdate . Enabled = True 



cmdSave_Click_Exit : 

Exit Sub 

HandleSaveErrors : 

Dim stMess As String 
Select Case Err. Number 
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Case 3022 'duplicate key field 

stMess = "Record already exists — could not save>' 
MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

Case 3058, 3315 'no entry in key field 

stMess = "Enter a DataType name before saving." 
MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

Case Else 

stMess = "Record could not be saved." & vbCrLf _ 

& Err .Description 

MsgBox stMess, vbExclamation, "Database Error" 
datDataTypes . Recordset . CancelUpdate 
Resume Next 
End Select 

End Sub 

Private Sub cmdUpdate_Click ( ) 

If cmdUpdate .Caption = "^Update" And _ 

datDataTypes. Recordset .RecordCount > 0 Then 

cmdUpdate. Caption = "Su&bmit" 
txtDataType . Enabled = True 
txtDescription . Enabled = True 
cmdDel . Enabled = False 
mnuFile . Enabled = False 
txtDataType . SetFocus 
cmdAdd. Enabled = False 
datDataTypes . Enabled = False 
datDataTypes . Recordset . Edit 

Else 

If datDataTypes . Recordset . RecordCount > 0 Then 
datDataTypes . Recordset . Update 

txtDataType . Enabled = False 
txtDescription . Enabled = False 
cmdDel .Enabled = True 
mnuFile . Enabled = True 
cmdAdd . Enabled = True 
cmdAdd . SetFocus 
cmdUpdate. Caption = "ScUpdate" 
datDataTypes. Enabled = True 
End If 
End If 

End Sub 

Private Sub datDataTypes_Reposition ( ) 

SetDataTypeRecordNumber 

End Sub 
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Private Sub Form_Load() 

datDataTypes . DatabaseName = gstNewDat abase 

With datDataTypes 
. Refresh 

If Not .Recordset .EOF Then 
.Recordset .MoveLast 
.Recordset .MoveFirst 
End If 
End With 

SetDataTypeRecordNuraber 



End Sub 

Private Sub Form_Un load (Cancel As Integer) 
frmMain. Show 
frmMain . Enabled = True 
Unload Me 

End Sub 

Private Sub mnuFileBack_Click ( ) 

frmMain. Enabled = True 
Unload Me 

End Sub 

Private Sub mnuFileSearch_Click ( ) 

datDataTypes. Recordset. FindFirst " [DataType] = ' " & _ 

Input Box ( "Enter the Data Type", "Data Type Search") & 



If datDataTypes . Recordset .NoMatch Then 

MsgBox "Data Type was not found.", vbOKOnly, "Data Type Search" 
datDataTypes . Recordset .MoveFirst 'go to first record 

End If 



End Sub 

Private Sub SetDataTypeRecordNtimber ( ) 

Dim iRecordCount As Integer 
Dim iCurrentRecord As Integer 

iRecordCount = datDataTypes . Recordset . RecordCount 
iCurrentRecord = datDataTypes . Recordset . AbsolutePosit ion + 1 
If datDataTypes . Recordset . EOF Then 

datDataTypes . Caption = "No more records" 

Else 

datDataTypes .Caption = "DataType " & iCurrentRecord & _ 

" of " Sc iRecordCount 
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End If 



End Sub 



'Module: frmFBE.fnn 

'Description: Allows user to access the FBE information 

' for addition, deletion, and modification. 

'Programmer: Kevin Colon 

1 



Option Explicit 

Private Sub cmdAddFBE_Click { ) 

On Error GoTo HandleAddFBEErrors 

If cmdAddFBE. Caption = "ScAdd FBE" Then 
datFBE . Recordset .AddNew 
txtFBE . Enabled = True 
txtFBE . SetFocus 
txtDescription. Enabled = True 
txtStart . Enabled = True 
txt End. Enabled = True 
cmdAddFBE . Caption = "ScCancel" 
cmdSaveFBE . Enabled = True 
cmdDelFBE . Enabled = False 
cmdUpdate . Enabled = False 
mnuFile .Enabled = False 
datFBE. Enabled = False 



Else 

datFBE . Recordset . CancelUpdate 
txtFBE. Enabled = False 
txtDescription. Enabled = False 
txtStart .Enabled = False 
txtEnd. Enabled = False 
cmdSaveFBE. Enabled = False 
cmdDelFBE . Enabled = True 
cmdUpdate. Enabled = True 
mnuFile . Enabled = True 
cmdAddFBE. Caption = "&Add FBE" 
cmdAddFBE . SetFocus 
datFBE . Enabled = True 

End If 

cmdAddFBE_Click_Exit : 

Exi t Sub 

HandleAddFBEErrors : 

Dim stMess As String 

stMess = "Cannot complete operation. " & vbCrLf Sc vbCrLf _ 
Sc Err .Description 

MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 
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End Sub 



Private Sub cmdDelFBE_Click ( ) 

'delete the current record 
Dim iResp As Integer 

On Error GoTo HandleDelFBEErrors 

If datFBE . Recordset .RecordCount > 0 Then 

iResp = MsgBox ( "Delete FBE " & txtFBE.Text Sc vbYesNo, 

"Delete FBE") 

If iResp = vbYes Then 

With datFBE . Recordset 

.Delete 'delete current record 

.MoveNext 'move to following record 

If .EOF Then 

. MovePrevious 
If .BOF Then 

MsgBox "The recordset is empty.", 
vbinf ormation, "No Records" 

End If 
End If 
End With 
End If 

Else 

MsgBox "No records to delete.", vbExclamation __ 

, "Delete FBE" 



End If 

cmdDelFBE_Click__Exit : 

Exit Sub 

HandleDelFBEErrors : 

Dim stMsg As String 

stMsg = "Cannot complete operation." & vbCrLf & vbCrLf __ 

Sc Err .Description 

MsgBox stMsg, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

End Sub 

Private Sub cmdSaveFBE_Click ( ) 

' save the current record 
Dim iResp As Integer 

On Error GoTo HandleSaveFBEErrors 

If txtFBE <> "" And txtDescription <> "" And txtStart <> "" And 
txtEnd <> " " Then 
txtFBE = UCase( txtFBE) 

iResp = MsgBox ("Do you want to add " & txtFBE & __ 

" to the database?", vbYesNo + vbQuestion, _ 
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Else 



"Add FEE") 

If iResp = vbYes Then 

datFBE . Recordset . Update 
End If 



MsgBox "You must enter an FBE, a description, and dates before 
saving. " , vbExclamation _ 

, "Add FBE" 

datFBE . Recordset . CancelUpdate 
End If 

txtFBE. Enabled = False 
txtDescription . Enabled = False 
txtStart . Enabled = False 
txtEnd . Enabled = False 
cmdSaveFBE. Enabled = False 
cmdDel FBE. Enabled = True 
datFBE. Enabled = True 
mnuFile . Enabled = True 
cmdAddFBE. Caption = "&Add FBE" 
cmdAddFBE . SetFocus 
cmdUpdate . Enabled = True 



cmdSaveFBE__Click__Exit : 

Exit Sub 

HandleSaveFBEErrors : 

Dim stMess As String 
Select Case Err. Number 

Case 3022 'duplicate key field 

stMess = "Record already exists could not save> ' " 
MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

Case 3058, 3315 'no entry in key field 

stMess = "Enter a FBE name before saving." 

MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

Case Else 

stMess = "Record could not be saved." & vbCrLf _ 

Sc Err . Description 

MsgBox stMess, vbExclamation, "Database Error" 
datFBE . Recordset . CancelUpdate 
Resume Next 
End Select 

End Sub 

Private Sub cmdUpdate_Click ( ) 

If cmdUpdate. Caption = "^Update" And _ 

datFBE. Recordset .RecordCount > 0 Then 
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cmdUpdate. Caption = "SuScbmit" 
txtFBE. Enabled = True 
txtDescription . Enabled = True 
txtStart . Enabled = True 
txtEnd. Enabled = True 
cmdDelFBE. Enabled = False 
mnuFile .Enabled = False 
txtFBE . SetFocus 
cmdAddFBE. Enabled = False 
datFBE . Enabled = False 
datFBE . Recordset . Edit 

Else 

If datFBE. Recordset . RecordCount > 0 Then 
datFBE . Recordset . Update 

txtFBE. Enabled = False 
txtDescription . Enabled = False 
txtStart . Enabled = False 
txtEnd. Enabled = False 
cmdDelFBE. Enabled = True 
mnuFile . Enabled = True 
cmdAddFBE . Enabled = True 
cmdAddFBE . SetFocus 
cmdUpdate. Caption = "^Update" 
datFBE. Enabled = True 
End If 
End If 

End Sub 

Private Sub datFBE_Reposition ( ) 
SetFBERecordNumber 

End Sub 

Private Sub Form_Load() 

datFBE. Da tabaseName = gstNewDatabase 

With datFBE 
. Refresh 

If Not .Recordset . EOF Then 
. Recordset . MoveLas t 
. Recordset . MoveFirs t 
End If 
End With 

SetFBERecordNumber 



End Sub 

Private Sub Form_Unload (Cancel As Integer) 
f rmMain . Show 
f rmMa in . Enabled = True 
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Unload Me 



End Sub 

Private Sub mnuFileBack_Click ( ) 
frmMain.Show 
frmMain. Enabled = True 
Unload Me 

End Sub 

Private Sub SetEBERecordNumber ( ) 

Dim iRecordCount As Integer 
Dim iCurrentRecord As Integer 

iRecordCount = datFBE . Recordset . RecordCount 
iCurrentRecord = datFBE . Recordset .AbsolutePosition + 1 
If datFBE . Recordset . EOF Then 

datFBE .Caption = "No more records" 

Else 

datFBE . Caption = "FBE " & iCurrentRecord & _ 

" of " Sc iRecordCount 

End If 
End Sub 



'Module: f rmFi Iters . frm 

'Description: Allows user to select filters applied to 

' target recordset parameters . 

‘Programmer: Kevin Colon 



Option Explicit 



Dim 


rsWeapons 


As 


Recordset 


Dim 


St SQL 


As 


String 


Dim 


stSQLl 


As 


String 


Dim 


stDesigTime 


As 


String 


Dim 


stDesigDay 


As 


String 


Dim 


stNLTTime 


As 


String 


Dim 


stNLTDay 


As 


String 


Dim 


stLatDeg 


As 


String 


Dim 


stLatDir 


As 


String 


Dim 


stLongDeg 


As 


String 


Dim 


stLongDir 


As 


String 


Private 


Sub chkDescription. 


.Click 0 



If chkDescription. Value = 1 Then 
fraDescription . Enabled = True 

Else 

fraDescription . Enabled = False 

85 



End If 



End Sub 

Private Sub chkLocat ion_Click ( ) 

If chkLocat ion. Value = 1 Then 
fraLocation . Enabled = True 

Else 

fraLocation. Enabled = False 
End If 

End Sub 

Private Sub chkTime_Click ( ) 

If chkTime .Value = 1 Then 
fraTime . Enabled = True 

Else 

fraTime . Enabled = False 
End If 



End Sub 

Private Sub chkWeapon_Click ( ) 

If chkWeapon .Value = 1 Then 
fraWeapon . Enabled = True 

Else 

fraWeapon . Enabled = False 
End If 



End Sub 

Private Sub cmdApply_Click ( ) 

If chkTime = 1 And chkDescription = 1 And chkWeapon = 1 
And chkLocat ion = 1 Then 



Else 

If chkTime = 1 And chkDescription = 1 And chkWeapon = 1 
And chkLocat ion = 0 Then 



Else 

If chkTime = 1 And chkDescription = 1 And chkWeapon = 0 
And chkLocation = 1 Then 



Else 

If chkTime = 1 And chkDescription = 0 And chkWeapon 
And chkLocation = 1 Then 
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Else 



= 1 



If chkTime = 0 And chkDescription = 1 And chkWeapon 
And chkLocation = 1 Then 



chkWeapon = 0 _ 



Else 

If chkTime = 1 And chkDescription = 1 And 
And chkLocation = 0 Then 



chkWeapon = 1 _ 



Else 

If chkTime = 1 And chkDescription = 0 And 
And chkLocation = 0 Then 



And chkWeapon = 1 _ 



txtDescript ion . Text & 
cboWeapon.Text & " ' ” 



Else 

If chkTime = 0 And chkDescription = 

And chkLocation = 0 Then 

stSQL = "Select * from Target '* 
"Where Description = ' '* 



Sc 



"And WeaponType = ' " & 



1 



With f rmTargets2 . datTargets 
. RecordSource = stSQL 
. Refresh 
End With 



0 And chkWeapon = 0 _ 



Else 

If chkTime = 1 And chkDescription = 
And chkLocation = 1 Then 



chkDescription 



1 And chkWeapon = 



Else 

If chkTime = 0 And 

0 

And chkLocation = 1 Then 



chkDescription 

Then 



0 And chkWeapon = 1 



Else 

If chkTime = 0 And 

And chkLocation = 1 



Else 



chkDescription = 0 And chkWeapon = 0 _ 
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If chkTime = 1 And 






Then 


And chkLocation = 0 



Else 

If chkTime = 0 And 



chkDescription = 1 And chkWeapon = 0 _ 
= 0 Then 


And chkLocation 


* from Target ” & _ 


stSQL = "Select 


Description = ' " & txtDescription . Text & 


"Where 


f rmTargets2 . datTargets 


With 


. RecordSource = stSQL 


. Refresh 
End With 


And chkDescription = 0 And chkWeapon = 1 _ 


Else 

If ChkTime = 0 


chkLocation = 0 Then 


And 


"Select * from Target " & _ 

"Where WeaponType = '" & cboWeapon . Text & 


stSQL = 


f rmTargets2 . datTargets 
.RecordSource = stSQL 


With 


. Refresh 


End With 


= 0 And chkDescription = 0 And chkWeapon = 0 _ 


Else 

If chkTime 


chkLocation = 1 Then 


And 




Else 

If 



chkTime = 0 And chkDescription = 0 And chkWeapon = 0 _ 

And 

chkLocation = 0 Then 
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stSQL = "Select * from Target 



With f rmTargets2 . datTargets 
. RecordSource = stSQL 
. Refresh 
With 



End 



End If 
End If 
End If 
End If 
End If 
End If 
End If 
End If 
End If 
End If 
End If 
End If 
End If 
End If 
End If 
End If 



If chkTime .Value = 1 Then 

Else 

End If 

If chkDescription. Value = 1 Then 

Else 

End If 

If chkWeapon .Value = 1 Then 

stSQL = "Select * from Target where WeaponType = ' " & 
cboWeapon . Text & " ' " 

With frmTargets2 .datTargets 
.RecordSource = stSQL 
.Refresh 
End With 



Else 



stSQL = "Select * from Target" 
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With f rmTargets2 . datTargets 
. RecordSource = stSQL 
. Refresh 
End With 



End If 

If chkLocation .Value = 1 Then 

Else 

End If 



End Sub 

Private Sub cmdCancel_Click ( ) 

frmTargets2 . Enabled = True 
Me . Hide 

End Sub 

Private Sub cmdOK_Click ( ) 

cmdApp ly_C lick 
frmTargets2 . Enabled = True 
f rmTargets2 . Show 
Me . Hide 

End Sub 

Private Sub FillcboWeapons ( ) 

With rsWeapons 

Do Until .EOF 

cboWeapon. Additem IWeaponType 
. MoveNext 

Loop 
End With 

cboWeapon. List Index = -1 



End Sub 

Private Sub Form_Load ( ) 

stSQLl = "Select WeaponType from WeaponType" 
Set rsWeapons = db . OpenRecordset ( st SQLl ) 
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F i 1 1 cboWe ap on s 



End Sub 

Private Sub Fonn_Unload (Cancel As Integer) 

f rmTargets2 . Enabled = True 
Me . Hide 

End Sub 



'Module : f rmFireCmdEvent . f rm 

'Description: Allows user to access the fire command event 

' records for addition, deletion, and 

' modification. 

'Programmer: Kevin Colon 



Option Explicit 



Dim rsNomination 
Dim rsTarget 
Dim rsPlatform 
Dim stSQLl 
Dim stSQL2 
Dim stSQL3 
Private WordApp 
Private Doc 
Private Sel 



As Recordset 
As Recordset 
As Recordset 
As String 
As String 
As String 

As Word. Application 
As Word. Document 
As Word. Selection 



Private Sub cboNomination_Change ( ) 

If cboNomination . Listindex >= 0 Then 
txtNomination = cboNomination . Text 
End If 

End Sub 

Private Sub cboPlatf orm_Change ( ) 

If cboPlatform. Listindex >= 0 Then 
txtPlatform = cboPlatform. Text 
End If 

End Sub 

Private Sub cboTarget_Change ( ) 

If cboTarget . Listindex >= 0 Then 
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txtTarget = cboTarget .Text 
End If 

End Sub 

Private Sub cmdAdd_Click ( ) 

On Error GoTo HandleAddErrors 

If cmdAdd. Caption = "&Add Event” Then 

datFireCommand. Recordset . AddNew 
cboTarget . Enabled = True 
cboNomination . Enabled = True 
cboPlatform. Enabled = True 
cboTarget .Listindex = -1 
cboNoinination.ListIndex = -1 
cboPlatform. Listindex = -1 
txtTimeSent . Enabled = True 
txtTiineRcvd. Enabled = True 
txtOCCCId. Enabled = True 
chkEngage . Enabled = True 
cmdUpdate. Enabled = False 
cmdSave . Enabled = True 
cmdDel . Enabled = False 
cmdAdd. Caption = "&Cancel" 
mnuFile . Enabled = False 
datFireCommand . Enabled = False 



Else 



datFireCommand . Recordset . CancelUpdate 
cboTarget . Enabled = False 
cboNomination . Enabled = False 
cboPlatform. Enabled = False 
txtTimeSent . Enabled = False 
txtTimeRcvd. Enabled = False 
txtOCCCId. Enabled = False 
chkEngage . Enabled = False 
cmdUpdate . Enabled = True 
cmdSave . Enabled = False 
cmdDel . Enabled = True 
cmdAdd. Caption = "&Add Event" 
mnuFile . Enabled = True 
datFireCommand. Enabled = True 
cmdAdd . SetFocus 

End If 

cmdAdd_C lie k_Ex i t : 

Exit Sub 

HandleAddErrors : 

Dim stMess As String 

stMess = "Cannot complete operation. " 
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& vbCrLf & vbCrLf & 



Err . Description 

MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

End Sub 

Private Sub cmdDel_Click ( ) 

Dim iResp As Integer 

On Error GoTo HandleDelErrors 

If datFireCommand. Recordset. RecordCount > 0 Then 

iResp = MsgBox ( "Delete Event " & txtFireCommand & 

"Delete Event") 

If iResp = vbYes Then 

With datFireCommand. Recordset 
.Delete 
.MoveNext 
If .EOF Then 

. MovePrevious 
If .BOF Then 

MsgBox "The recordset is empty.", 
vbinf ormation, "No Records" 

End If 
End If 
End With 
End If 

Else 

MsgBox "No records to delete.", vbExclamation, "Delete 
End If 

cmdDel_Click : 

Exit Sub 

HandleDelErrors : 

Dim stMess As String 

stMess = "Cannot complete operation." & vbCrLf & vbCrLf & 
Err .Description 

MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 

End Sub 

Private Sub cmdSave_Click ( ) 

' save current record 

On Error GoTo HandleSaveErrors 

If cboTarget. List Index >= 0 And cboNominat ion . List Index >= 
cboPlatform.ListIndex >= 0 Then 

If Val ( txtCounter) < 10 Then 

txtFireCommand. Text = "FCOOOO" Sc txtCounter . Text 



vbYesNo, 



Event " 



0 And 
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Else 



If Val ( txtCounter ) < 100 Then 

txtFireCommand.Text = "FCOOO" & txtCounter .Text 

Else 

If Val (txtCounter) < 1000 Then 

txtFireCommand.Text = "FCOO" Sc txtCounter . Text 

Else 

If Val (txtCounter) < 10000 Then 

txtFireCommand.Text = "FCO" & txtCounter .Text 

Else 

txtFireCommand.Text = "FC” & txtCounter . Text 
End If 
End If 
End If 
End If 

datFireCommand . Recordset . Update 

Else 

MsgBox "You must select a Nomination Event, a Target, and a 
Platform before saving." _ 

, vbExclamation, "Add Fire Command Event" 
datFireCommand . Recordset . CancelUpdate 
End If 

cboTarget .Enabled = False 
cboNomination . Enabled = False 
cboPlatform. Enabled = False 
txtTimeSent .Enabled = False 
txtTimeRcvd. Enabled = False 
txtOCCCId. Enabled = False 
chkEngage . Enabled = False 
cmdUpdate. Enabled = True 
cmdSave . Enabled = False 
cmdDel .Enabled = True 
cmdAdd. Caption = "&Add Event" 
mnuFile. Enabled = True 
datFireCommand. Enabled = True 
cmdAdd. Set Focus 



datFireCommand . Enabled = True 

cmdSave_Click_Exit : 

Exit Sub 

HandleSaveErrors : 

Dim stMess As String 
Select Case Err. Number 

Case 3022 'duplicate key field 

stMess = "Record already exists — could not save>'" 
MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

Case 3058, 3315 'no entry in key field 

stMess = "Select Nomination Event, Target, and Platform 
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before saving." 

MsgBox stMess, vbExclamation, "Database Error" 
On Error GoTo 0 'turn off error trapping 

Case Else 

stMess = "Record could not be saved." & vbCrLf 
& Err . Description 

MsgBox stMess, vbExclaination, "Database Error" 
datFireCommand . Recordset . CancelUpdate 
Resume Next 
End Select 

End Sub 

Private Sub cmdUpdate_Click { ) 

If cmdUpdate. Caption = "ScUpdate" And _ 

datFireCommand. Recordset . RecordCount > 0 Then 

cmdUpdate. Caption = "Su&bmit" 
cboTarget . Enabled = True 
cboNominat ion. Enabled = True 
cboPlatform. Enabled = True 
txtTimeSent . Enabled = True 
txtTimeRcvd. Enabled = True 
txtOCCCId. Enabled = True 
chkEngage . Enabled = True 
cmdAdd. Enabled = False 
cmdSave . Enabled = False 
cmdDel . Enabled = False 
mnuFile . Enabled = False 
datFireCommand. Enabled = False 
datFireCommand . Recordset . Edit 



Else 

If datFireCommand. Recordset .RecordCount > 0 Then 
datFireCommand . Recordset . Update 

cboTarget . Enabled = False 
cboNomination . Enabled = False 
cboPlatform. Enabled = False 
txtTimeSent . Enabled = False 
txtTimeRcvd. Enabled = False 
txtOCCCId. Enabled = False 
chkEngage . Enabled = False 
cmdDel . Enabled = True 
cmdAdd. Enabled = True 
cmdAdd . Set Focus 
cmdUpdate .Caption = "ScUpdate" 
mnuFile. Enabled = True 
datFireCommand. Enabled = True 



End If 
End If 
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End Sub 



Private Sub datFireCormnand_Reposition ( ) 

S e t F i r eC oininandRec o r dNumbe r 
End Sub 

Private Sub Form_Load() 

datFireCommand. DatabaseName = gstNewDat abase 

stSQLl = "Select Nomination from Nomination" 
stSQL2 = "Select Target Id from Target" 
stSQLS = "Select Platform from Platform" 



Set rsNomination = db . OpenRecordset ( stSQLl ) 

Set rsTarget = db. OpenRecordset (stSQL2) 

Set rsPlatform = db. OpenRecordset ( stSQLS ) 

'fill cboNomination 
Do Until rsNomination . EOF 

cboNomination. AddI tern rsNomination ‘Nomination 
rsNomination .MoveNext 

Loop 

'fill cboTarget 
Do Until rsTarget. EOF 

cboTarget .AddI tern rsTarget ! Target Id 
rsTarget . MoveNext 

Loop 

'fill cboPlatform 
Do Until rsPlat form. EOF 

cboPlatform. Additem rsPlatform! Platform 
rsPlatfo 2 rm. MoveNext 

Loop 

With datFireCommand 
. Refresh 

If Not .Recordset . EOF Then 
. Recordset .MoveLast 
. Recordset . MoveFirst 
End If 
End With 

S e t F i r eC omma ndRe c o r dNumbe r 
End Sub 

Private Sub Form_Un load (Cancel As Integer) 
frmMa in. Enabled = True 
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Unload Me 



End Sub 

Private Sub mnuFileBack^Click ( ) 

frmMa in. Enabled = True 
Unload Me 



End Sub 

Private Sub SetFireCommandRecordNumber ( ) 

Dim iRecordCount As Integer 
Dim iCurrentRecord As Integer 

iRecordCount = datFireCommand . Recordset . RecordCount 
iCurrentRecord = datFireCommand. Recordset .AbsolutePosit ion + 1 



If datFireCommand . Recordset . EOF Then 

datFireCommand. Caption = "No more records" 

Else 



datFireCommand . Caption 
iCurrentRecord & _ 



"Fire Command Event Record 
of " Sc iRecordCount 



End If 



Sc 



End Sub 

Private Sub mnuFilePrint_Click ( ) 
f rmPrint . Show 

On Error GoTo mnuPrintErrors 

If bContinue = True Then 

With datFireCommand. Recordset 

If bWord = True Then 

Set WordApp = New Word .Application 
WordApp . Documents . Add 
Set Doc = WordApp. Act iveDociiment 
Set Sel = WordApp . Select ion 

Doc .Tables .Add Range : =Sel . Range, NumRows : = . RecordCount , 

NumColumns : =6 



Sel . TypeText Text : = " FireCommand " 

Sel .MoveRight unit; =12 '12=next cell 

Sel. TypeText Text := "Nomination" 

Sel .MoveRight unit : =12 
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12=next cell 



cell 



cell 



cell 



cell 



cell 



cell 



Sel . TypeText Text : = "Target Id” 

Sel .MoveRight unit: =12 

Sel. TypeText Text : ="FCTimeXmit " 

Sel .MoveRight unit : =12 

Sel. TypeText Text : ="FCTimeRcvd" 

Sel .MoveRight unit: =12 

Sel .TypeText Text : = " FirerPlatf orm" 
Sel .MoveRight unit: =12 

Do Until .EOF 

Sel . TypeText Text : = ! FireCommand 
Sel .MoveRight unit: =12 



'12=next cell 
'12=next cell 
'12=next cell 
'12=next cell 

' 12=next 



Sel. TypeText Text := iNominat ion 

Sel .MoveRight unit: =12 '12=next 



Sel. TypeText Text : = .' Target Id 

Sel .MoveRight unit: =12 '12=next 



Sel . TypeText Text : = i FCTimeXmit 

Sel .MoveRight unit: =12 '12=next 



Sel . TypeText Text : = 1 FCTimeRcvd 

Sel .MoveRight unit: =12 '12=next 



Sel . TypeText Text : = ! FirerPlatf orm 

Sel .MoveRight unit: =12 '12=next 



.MoveNext 



Loop 

WordApp. Visible = True 
Set WordApp = Nothing 



Else 

If bText = True Then 

Open App.Path & "\FireCmds.txt" For Output As #1 

Print #1, "FireCommand"; Chr(9); "Nomination"; 
Chr(9); "Targetid" ; Chr(9); _ 
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Chr ( 9 ) ; 



” FCTimeXinit " ; Chr ( 9 ) ; " FCTimeRcvd“ 

"FirerPlatf orm" ; Chr (9) 

Do Until .EOF 



Print #1, IFireCommand; Chr(9); 

’Nomination; Chr (9) ; 
’Target Id; Chr{9); 

! FCTimeXmi t ; Chr ( 9 ) ; 
’FCTimeRcvd; Chr(9); 

’ FirePlat f orm; Chr ( 9 ) 



. MoveNext 

Loop 

Close #1 

End If 
End If 

.MoveFirst 

End With 

End If 

bContinue = False 
bWord = False 
bText = False 



mnuPrintErrors : 

Select Case Err. Number 
Case 94 

Sel.TypeText Text:=" 
Resume Next 
End Select 



End Sub 

Private Sub txtNomination_Change ( ) 

'selects correct combo box listing 
Dim iindex As Integer 

Dim bFound As Boolean 

rsNominat ion . MoveFirst 
If txtNomination <> " ” Then 

Do Until iindex = rsNomination . RecordCount Or bFound 
If rsNomination ’Nomination = txtNomination Then 
cboNominat ion. Text = rsNomination ! Nomination 
bFound = True 

Else 

rsNomination . MoveNext 
iindex = iindex + 1 
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End If 



Loop 
End If 

End Sub 

Private Sub txtPlatf orm_Change { ) 

'selects correct combo box listing 
Dim iindex As Integer 

Dim bFound As Boolean 

rsPlatf orm.MoveFirst 
If txtPlatf orm <> " " Then 

Do Until iindex = rsPlatf orm. RecordCount Or bFound 
If rsPlatform! Platform = txtPlatf orm Then 
cboPlat form. Text = rsPlatf orm! Platform 
bFound = True 

Else 

rsPlatf orm. MoveNext 
iindex = iindex + 1 
End If 



Loop 
End If 

End Sub 

Private Sub txtTarget_Change ( ) 

'selects correct combo box listing 
Dim iindex As Integer 

Dim bFound As Boolean 

rsTarget .MoveFirst 
If txtTarget <> "" Then 

Do Until iindex = rsTarget . RecordCount Or bFound 
If rsTarget .'Targetid = txtTarget Then 
cboTarget . Text = rsTarget ! Targetid 
bFound = True 

Else 

rsTarget . MoveNext 
iindex = iindex + 1 
End If 



Loop 
End If 

End Sub 



> it it it it it it it ★★★★★★★★★★★★★★★★★★★★ ★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★ 

'Module: f rmFireEvent . f rm 
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'Description; 



Allows user to access the fire event records 
for addition, deletion, and modification. 
'Programmer: Kevin Colon 

I************************************************************* 



Option Explicit 

Dim rsFireCommand 
Dim stSQL 
Private WordApp 
Private Doc 
Private Sel 



As Recordset 
As String 

As Word. Application 
As Word, Document 
As Word. Selection 



Private Sub cmdAdd_Click ( ) 

On Error GoTo HandleAddErrors 

If cmdAdd. Caption = "ScAdd Event" Then 

datFire . Recordset . AddNew 
cboFireCommand. Enabled = True 
cboFireCommand. List Index = -1 
txtTime . Enabled = True 
txtWeaponMagStat .Enabled = True 
txtLocat ion. Enabled = True 
txt Altitude. Enabled = True 
txtRounds . Enabled = True 
cmdUpdate . Enabled = False 
cmdSave . Enabled = True 
cmdDel . Enabled = False 
cmdAdd. Caption = "ScCancel" 
mnuFile . Enabled = False 
datFire. Enabled = False 



Else 



datFire . Recordset . CancelUpdate 
cboFireCommand. Enabled = False 
txtTime . Enabled = False 
txtWeaponMagStat . Enabled = False 
txtLocat ion. Enabled = False 
txtAltitude . Enabled = False 
txtRounds . Enabled = False 
cmdUpdate . Enabled = True 
cmdSave . Enabled = False 
cmdDel . Enabled = True 
cmdAdd. Caption = "ScAdd Event" 
mnuFile . Enabled = True 
datFire . Enabled = True 
cmdAdd . SetFocus 

End If 

cmdAdd_Click_Exit : 
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Exit Sub 



HandleAddErrors : 

Dim stMess As String 

stMess = "Cannot complete operation. " & vbCrLf & vbCrLf & 

Err . Description 

MsgBox stMess, vbExclamation , "Database Error" 

On Error GoTo 0 'turn off error trapping 

End Sub 

Private Sub cmdDel_Click { ) 

Dim iResp As Integer 

On Error GoTo HandleDelErrors 

If datFire. Recordset .RecordCount > 0 Then 

iResp = MsgBox { "Delete Event " & txtFire & "?", vbYesNo, _ 
"Delete Event") 

If iResp = vbYes Then 

With datFire. Recordset 
.Delete 
.MoveNext 
If .EOF Then 

.MovePrevious 
If .BOF Then 

MsgBox "The recordset is empty.", 
vbinf ormation, "No Records" 

End If 
End If 
End With 
End If 

Else 

MsgBox "No records to delete.", vbExclamation, "Delete Event" 
End If 

cmdDel_Click: 

Exit Sub 

HandleDelErrors : 

Dim stMess As String 

stMess = "Cannot complete operation." & vbCrLf & vbCrLf & 

Err . Description 

MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 



End Sub 

Private Sub cmdSave_Click{ ) 
'save current record 
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Then 



On Error GoTo HandleSaveErrors 

If cboFireCommand.Listlndex >= 0 And txtRounds <> "" 

If Val ( txtCounter) < 10 Then 

txtFire.Text = "FEOOOO" & txtCounter . Text 

Else 

If Val (txtCounter) < 100 Then 

txtFire.Text = "FEOOO" Sc txtCounter .Text 

Else 

If Val (txtCounter) < 1000 Then 

txtFire.Text = "FEOO" Sc txtCounter . Text 

Else 

If Val ( txtCounter) < 10000 Then 

txtFire.Text = "FEO" Sc txtCounter .Text 

Else 

txtFire.Text = "FE" Sc txtCounter . Text 
End If 
End If 
End If 
End If 

datFire . Recordset . Update 

Else 

MsgBox "You must select an Fire Command Event and enter number 
of rounds before saving." _ 

, vbExclamation, "Add Fire Event" 
datFire . Recordset . CancelUpdate 
End If 

cboFireCommand. Enabled = False 
txtTime. Enabled = False 
txtWeaponMagStat . Enabled = False 
txtLocation .Enabled = False 
txtAltitude . Enabled = False 
txtRounds . Enabled = False 
cmdUpdate. Enabled = True 
cmdSave . Enabled = False 
cmdDel .Enabled = True 
cmdAdd. Caption = "£cAdd Event" 
mnuFile. Enabled = True 
datFire. Enabled = True 
cmdAdd . SetFocus 



datFire. Enabled = True 

cmdSave_Click__Exit : 

Exit Sub 

HandleSaveErrors : 

Dim stMess As String 
Select Case Err. Number 

Case 3022 'duplicate key field 

stMess = "Record already exists — could not save> ' " 
MsgBox stMess, vbExc lama t ion, "Database Error" 

On Error GoTo 0 'turn off error trapping 
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Case 3058, 3315 'no entry in key field 

stMess = "Select Fire Command Event and enter number of 
rounds before saving." 

MsgBox stMess, vbExclamation , "Database Error" 

On Error GoTo 0 'turn off error trapping 

Case Else 

stMess = "Record could not be saved." & vbCrLf _ 

Sc Err . Description 

MsgBox stMess, vbExclamation, "Database Error" 
datFire . Recordset , CancelUpdate 
Resume Next 
End Select 

End Sub 

Private Sub cmdUpdate_Click { ) 

If cmdUpdate. Caption = "&Update" And _ 

datFire. Recordset .RecordCount > 0 Then 

cmdUpdate. Caption = "Su&bmit" 
cboFireCommand. Enabled = True 
txtTime. Enabled = True 
txtWeaponMagStat . Enabled = True 
txtLocat ion. Enabled = True 
txtAltitude . Enabled = True 
txtRounds . Enabled = True 
cmdAdd. Enabled = False 
cmdSave. Enabled = False 
cmdDel . Enabled = False 
mnuFile. Enabled = False 
datFire. Enabled = False 
datFire . Recordset . Edit 



Else 

If datFire. Recordset .RecordCount > 0 Then 
datFire . Recordset . Update 

cboFireCommand. Enabled = False 
txtTime . Enabled = False 
txtWeaponMagStat . Enabled = False 
txtLocation . Enabled = False 
txtAltitude . Enabled = False 
txtRounds . Enabled = False 
cmdDel . Enabled = True 
cmdAdd. Enabled = True 
cmdAdd. Set Focus 
cmdUpdate. Caption = "&Update" 
mnuFile. Enabled = True 
datFire. Enabled = True 



End If 
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End If 



End Sub 

Private Sub datFire_Reposi tion ( ) 

SetFireRecordNumber 
End Sub 

Private Sub Form_Load() 

datFire . DatabaseName = gstNewDatabase 

stSQL = "Select FireCommand from FireCommand" 

Set rsFireCommand = db . OpenRecordset ( stSQL) 

'fill cboFireCommand 
Do Until rsFireCommand. EOF 

cboFireCommand. AddI tern rsFireCommand ! FireCommand 
rsFireCommand. MoveNext 

Loop 



With datFire 
. Refresh 

If Not , Recordset . EOF Then 
. Recordset . MoveLast 
. Recordset . MoveFirs t 
End If 
End With 

SetFireRecordNumber 
End Sub 

Private Sub Form_Unload (Cancel As Integer) 

frmMain. Enabled = True 
Unload Me 

End Sub 

Private Sub mnuFileBack_Click ( ) 

frmMain. Enabled = True 
Unload Me 

End Sub 

Private Sub SetFireRecordNumber ( ) 

Dim iRecordCount As Integer 
Dim iCurrentRecord As Integer 
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iRecordCount = datFire . Recordset . RecordCount 
iCurrentRecord = datFire . Recordset .AbsolutePosition + 1 

If datFire . Recordset . EOF Then 

datFire .Caption = "No more records" 

Else 

datFire . Caption = "Fire Event Record " & iCurrentRecord & 

" of " Sc iRecordCount 

End If 
End Sub 



Private Sub mnuFilePrint_Click ( ) 
f rmPrint . Show 

On Error GoTo innuPrintErrors 

If bContinue = True Then 

With datFire. Recordset 

If bWord = True Then 

Set WordApp = New Word . Application 
WordApp . Documents . Add 
Set Doc = WordApp. Ac tiveDocument 
Set Sel = WordApp. Selection 

Doc . Tables . Add Range := Sel . Range, NumRows :=. RecordCount , 

NumColumns : =6 



Fire " 
12 


' 12=next 


cell 


FireCommand" 

12 


' 12=next 


cell 


FireTime " 
12 


' 12=next 


cell 


FirerLocation" 

12 


' 12=next 


cell 


FirerAltitude " 
12 


' 12=next 


cell 


RoundsFired" 

:12 


' 12=next 


cell 



Do Until .EOF 



Sel.TypeText Text := IFire 
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I 



cell 



Sel .MoveRight unit: =12 



' 12=next 



Sel . TypeText Text : = I FireCoiranand 

Sel .MoveRight unit: =12 ' 12=next 

cell 

Sel. TypeText Text : = ! FireTime 

Sel .MoveRight unit: =12 '12=next 

cell 

Sel. TypeText Text : = ! FirerLocation 

Sel .MoveRight unit : =12 '12=next 

cell 

Sel. TypeText Text : = ! FirerAltitude 

Sel .MoveRight unit: =12 '12=next 

cell 

Sel . TypeText Text : = 1 RoundsFired 

Sel .MoveRight unit: =12 '12=next 

cell 



. MoveNext 



Loop 

WordApp .Visible = True 
Set WordApp = Nothing 



Else 

If bText = True Then 



Open App.Path & "\FireEvents.txt" For Output As #1 



Print #1, 

"FireTime"; Chr(9); _ 
"FirerAltitude"; Chr(9); _ 



"Fire"; Chr(9); "FireCoiranand"; Chr(9); 
"FirerLocation" ; Chr(9); 
"RoundsFired"; Chr(9) 



Do Until .EOF 



Print #1, iFire; Chr(9); _ 

! FireCoiranand; Chr(9); _ 

! FireTime; Chr(9); _ 
i FirerLocation; Chr{9); _ 
•FirerAltitude; Chr(9); _ 
• RoundF i r ed ; Chr ( 9 ) 



. MoveNext 

Loop 
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Close #1 



End If 
End If 

-MoveFirst 

End With 

End If 

bContinue = False 
bWord = False 
bText = False 



mnuPrintErrors : 

Select Case Err. Number 
Case 94 

Sel.TypeText Text:="“ 
Resume Next 
End Select 



End Sub 



' Module : f rmGISRS . f rm 

'Description: Allows user to access the GISRS terminal 

' records for addition, deletion, and 

' modification. 

'Programmer; Kevin Colon 



Option Explicit 

Dim rsPlatform As Recordset 

Dim stSQL As String 

Private Sub cboPlatf orm_Click ( ) 

If cboPlatform.ListIndex >= 0 Then 
txtPlatform = cboPlat form. Text 
End If 

End Sub 

Private Sub cmdAdd_Click ( ) 

On Error GoTo HandleAddErrors 

If cmdAdd . Caption = "&Add" Then 
datGISRS . Recordset . AddNew 
txtTerminal . Enabled = True 
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txtTerminal .SetFocus 
txtFunction. Enabled = True 
cboPlatform. Enabled = True 
cmdAdd. Caption = "ScCancel" 
cmdSave . Enabled = True 
cmdDel . Enabled = False 
cmdUpdate . Enabled = False 
mnuFile . Enabled = False 
datGISRS . Enabled = False 



Else 

datGISRS . Recordset . CancelUpdat e 
txtTerminal . Enabled = False 
txtFunction . Enabled = False 
CboPlatform. Enabled = False 
cmdSave. Enabled = False 
cmdDel .Enabled = True 
cmdUpdate. Enabled = True 
mnuFile. Enabled = True 
cmdAdd. Caption = "&Add" 
cmdAdd . SetFocus 
datGISRS . Enabled = True 

End If 

cmdAdd_C lie k_Exi t : 

Exit Sub 

HandleAddErrors : 

Dim stMess As String 

stMess = "Cannot complete operation. " & vbCrLf & vbCrLf _ 

Sc Err .Description 

MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

End Sub 

Private Sub cmdDel_Click ( ) 

'delete the current record 
Dim iResp As Integer 

On Error GoTo HandleDelErrors 

If datGISRS.Recordset .RecordCount > 0 Then 

iResp = MsgBox ( "Delete Terminal " & txtTerminal . Text & "?", 
vbYesNo, "Delete Terminal") 

If iResp = vbYes Then 

With datGISRS.Recordset 

.Delete 'delete current record 

.MoveNext 'move to following record 

If .EOF Then 

.MovePrevious 
If .BOF Then 

MsgBox "The recordset is empty.", 
vbinformation, "No Records" 
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End If 
End If 
End With 
End If 

Else 

MsgBox "No records to delete.", vbExclamation 
, "Delete Terminal" 



End If 

cmdDel_Click_Exit : 

Exit Sub 

HandleDelErrors : 

Dim stMsg As String 

stMsg = "Cannot complete operation." & vbCrLf & vbCrLf _ 

8c Err .Description 

MsgBox stMsg, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

End Sub 

Private Sub cmdSave_Click ( ) 

' save the current record 
Dim iResp As Integer 

On Error GoTo HandleSaveErrors 
If txtTerminal .Text <> "" Then 

txtTerminal .Text = UCase { txtTerminal .Text ) 

iResp = MsgBox ("Do you want to add " & txtTerminal .Text Sc 
" to the database?", vbYesNo + vbQuestion, _ 
"Add Terminal") 

If iResp = vbYes Then 

datGISRS . Recordset .Update 
End If 



Else 

MsgBox "You must enter a Terminal before saving.", 
vbExclamation _ 

, "Add Terminal" 
datGISRS . Recordset . CancelUpdate 
End If 

txtTerminal . Enabled = False 
txtFunction . Enabled = False 
cboPlatform. Enabled = False 
cmdSave. Enabled = False 
cmdDel . Enabled = True 
datGISRS . Enabled = True 
mnuFile. Enabled = True 
cmdAdd. Caption = "&Add" 
cmdAdd . SetFocus 
cmdUpdate. Enabled = True 
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cmdSave_Click_Exit : 

Exit Sub 

HandleSaveErrors : 

Dim stMess As String 
Select Case Err. Number 

Case 3022 'duplicate key field 

stMess = "Record already exists -- could not save>'" 
MsgBox stMess, vbExclamation , "Database Error" 

On Error GoTo 0 'turn off error trapping 

Case 3058, 3315 'no entry in key field 

stMess = "Enter a location before saving." 

MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

Case Else 

stMess = "Record could not be saved." & vbCrLf _ 

& Err . Description 

MsgBox stMess, vbExclamation, "Database Error" 
datGISRS . Recordset . CancelUpdate 
Resume Next 
End Select 

End Sub 

Private Sub cmdUpdate_Click { ) 

If cmdUpdate . Caption = "ScUpdate" And _ 

datGISRS. Recordset .RecordCount > 0 Then 

cmdUpdate .Caption = "Su&bmit" 
txtTerminal .Enabled = True 
txtFunct ion. Enabled = True 
cboPlatform. Enabled = True 
cmdDel . Enabled = False 
mnuFile . Enabled = False 
txtTerminal . SetFocus 
cmdAdd. Enabled = False 
datGISRS . Enabled = False 
datGISRS . Recordset . Edit 

Else 

If datGISRS. Recordset .RecordCount > 0 Then 
txtTerminal = UCase ( txtTerminal ) 
datGISRS. Recordset .Update 

txtTerminal . Enabled = False 
txtFunction. Enabled = False 
cboPlatform. Enabled = False 
cmdDel . Enabled = True 
mnuFile . Enabled = True 
cmdAdd. Enabled = True 
cmdAdd . SetFocus 
cmdUpdate. Caption = "ScUpdate" 
datGISRS . Enabled = True 
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End If 
End If 

End Sub 

Private Sub datGISRS_Reposition ( ) 
SetTerminalRecordNuinber 
End Sub 

Private Sub FillPlatf ormCombo ( ) 

Dim iCount As Integer 
'fill the PlatType combo box 
cboPlatform. Clear 

With rsPlatform 

iCount = . RecordCount 

'fill the list 
Do Until .EOF 

If ! Platform <> "" Then 

CboPlatform. AddI tern ! Platform 

End If 
.MoveNext 

Loop 
End With 



End Sub 

Private Sub Form_Load() 

datGISRS . DatabaseName = gstNewDatabase 

stSQL = "Select Platform from Platform" 

Set rsPlatform = db. OpenRecordset (stSQL) 

FillPlatf ormCombo 

With datGISRS 
. Refresh 

If Not . Recordset . EOF Then 
. Recordset . MoveLas t 
. Recordset .MoveFirst 
End If 
End With 

SetTerminalRecordNumber 
End Sub 
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Private Sub Form_Unload (Cancel As Integer) 

frmMa in. Enabled = True 
Unload Me 

End Sub 

Private Sub mnuFileBack_Click ( ) 

f nriMa in . Enabled = True 
Unload Me 

End Sub 

Private Sub mnuFileSearch_Click ( ) 

datGISRS. Recordset .FindFirst " [GISRSTerminal] = ' " & _ 

InputBox( "Enter the GISRS Terminal", "GISRS Terminal 

Search") & 

If datGISRS . Recordset .NoMatch Then 

MsgBox "GISRS Terminal was not found.", vbOKOnly, "GISRS 
Terminal Search" 

datGISRS. Recordse t .MoveFirst 'go to first record 

End If 

End Sub 

Private Sub SetTerminalRecordNumber ( ) 

Dim iRecordCount As Integer 
Dim iCurrentRecord As Integer 

iRecordCount = datGISRS . Recordset . RecordCount 
iCurrentRecord = datGISRS . Recordset .AbsolutePosition + 1 
If datGISRS .Recordset .EOF Then 

datGISRS .Caption = "No more records" 

Else 

datGISRS .Caption = "Terminal " & iCurrentRecord & _ 

" of " & iRecordCount 

End If 
End Sub 

Private Sub txtPlatf orm_Change ( ) 

'selects correct combo box listing 
Dim i Index As Integer 
Dim bFound As Boolean 

rsPlatform. MoveFirst 
If txtPlatf orm <> " " Then 

Do Until iindex = rsPlatform. RecordCount Or bFound 
If rsPlatformI Platform = txtPlatform Then 
cboPlatf orm. Text = rsPlatform! Platform 
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bFound = True 



Else 

rsPlatform.MoveNext 

iindex = iindex + 1 
End If 

Loop 

Else 

cboPlatform.Listlndex - -1 

End If 
End Sub 






'Description: Allows user to access the impact event 



********************************* 

'Module: frmImpactEvent.frm 

records for addition, deletion, and 
modification. 



★★★★★★★★★*** 






Option Explicit 



Dim rsFire As 
Dim rsPlatform 
Dim rsSensor 
Dim stSQLl 
Dim stSQL2 
Dim stSQLS 
Private WordApp 
Private Doc 
Private Sel 



Recordset 
As Recordset 

As Recordset 
As String 
As String 
As String 

As Word. Application 
As Word. Document 
As Word. Selection 



Sub cboFire Change ( ) 

If CboFire. Listindex >= 0 Then 
^xtFire = cboFire. Text 
End If 

End Sub 

Private Sub cboSensor_Change { ) 

If cboSensor. Listindex >= 0 Then 

txtSensor = cboSensor .Text 
End If 

End Sub 

Private Sub cboPlatf orm_Change { ) 

If cboPlatform.Listlndex >= 0 Then 

txtPlatform = cboPlatf orm. Text 
End If 
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End Sub 



Private Sub cmdAdd_Click ( ) 

On Error GoTo HandleAddErrors 

If cmdAdd. Caption = "&Add Event" Then 

datimpact .Recordset .AddKew 
cboFire . Enabled = True 
cboPlatform. Enabled = True 
cboSensor. Enabled = True 
cboFire . Listindex = -1 
cboPlatform. Listindex = -1 
cboSensor . Listindex = -1 
txtImpactTime. Enabled = True 
txtBDATime . Enabled = True 
txtBDA. Enabled = True 
cmdUpdate . Enabled = False 
cmdSave . Enabled = True 
cmdDel . Enabled = False 
cmdAdd. Caption = "ScCancel" 
mnuFile . Enabled = False 
datimpact . Enabled = False 



Else 



datimpact . Recordset . CancelUpdate 
cboFire . Enabled = False 
cboPlatform. Enabled = False 
cboSensor .Enabled = False 
txtImpactTime. Enabled = False 
txtBDATime . Enabled = False 
txtBDA. Enabled = False 
cmdUpdate . Enabled = True 
cmdSave . Enabled = False 
cmdDel . Enabled = True 
cmdAdd. Caption = "&Add Event" 
mnuFile . Enabled = True 
datimpact . Enabled = True 
cmdAdd . SetFocus 

End If 

cmdAdd_Click_Exit : 

Exit Sub 

HandleAddErrors : 

Dim stMess As String 

stMess = "Cannot complete operation. " & vbCrLf & vbCrLf & 

Err . Description 

MsgBox stMess, vbExclamation , "Database Error" 

On Error GoTo 0 'turn off error trapping 



115 



End Sub 



Private Sub cmdDel_Click { ) 

Dim iResp As Integer 

On Error GoTo HandleDelErrors 

If datimpact .Recordset .RecordCount > 0 Then 

iResp = MsgBox ( "Delete Event " Sc txtimpact Sc vbYesNo, _ 

"Delete Event") 

If iResp = vbYes Then 

With datimpact .Recordset 
. Delete 
.MoveNext 
If .EOF Then 

. MovePrevious 
If .EOF Then 

MsgBox "The recordset is empty.", 
vbinf ormation, "No Records" 

End If 
End If 
End With 
End If 

Else 

MsgBox "No records to delete.", vbExclamation, "Delete Event" 
End If 

cmdDel_Click : 

Exit Sub 

HandleDelErrors : 

Dim stMess As String 

stMess = "Cannot complete operation," Sc vbCrLf Sc vbCrLf Sc 
Err . Description 

MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 



End Sub 

Private Sub cmdSave_Click ( ) 

' save current record 
On Error GoTo HandleSaveErrors 
If cboFire .List Index >= 0 Then 
If Val { txtCounter ) < 10 Then 

txtimpact . Text = "lEOOOO" Sc txtCounter . Text 

Else 

If Val ( txtCounter) < 100 Then 

txtimpact , Text = "lEOOO" Sc txtCounter . Text 

Else 

If Val { txtCounter) < 1000 Then 
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lEOO” Sc txtCounter .Text 



txtimpact .Text = 

Else 

If Val ( txtCounter) < 10000 Then 

txtimpact .Text = "lEO” Sc txtCounter . Text 

Else 

txtimpact . Text = "IE" & txtCounter .Text 
End If 
End If 
End If 
End If 

datimpact . Recordset . Update 

Else 

MsgBox "You must select a Fire Event before saving." _ 

, vbExc lama t ion, "Add Impact Event" 
datimpact . Recordset . CancelUpdate 
End If 

cboFire . Enabled = False 
cboPlatform. Enabled = False 
cboSensor . Enabled = False 
txtImpactTime . Enabled = False 
txtBDATime . Enabled = False 
txtBDA. Enabled = False 
cmdUpdate. Enabled = True 
cmdSave . Enabled = False 
cmdDel .Enabled = True 
cmdAdd. Caption = "&Add Event" 
mnuFile . Enabled = True 
datimpact . Enabled = True 
cmdAdd . SetFocus 



datimpact . Enabled = True 

cmdSave_Click__Exit : 

Exit Sub 

HandleSaveErrors : 

Dim stMess As String 
Select Case Err. Number 

Case 3022 'duplicate key field 

stMess = "Record already exists -- could not save>'" 
MsgBox stMess, vbExclamation , "Database Error" 

On Error GoTo 0 'turn off error trapping 

Case 3058, 3315 'no entry in key field 

stMess = "Select Fire Event before saving." 

MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

Case Else 

stMess = "Record could not be saved." Sc vbCrLf __ 

Sc Err .Description 

MsgBox stMess, vbExclamation, "Database Error" 
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datimpact . Recordset . CancelUpdate 
Resume Next 
End Select 

End Sub 

Private Sub cmdUpdate_Click ( ) 

If cmdUpdate .Caption = "ScUpdate" And _ 

datimpact . Recordset . RecordCount > 0 Then 

cmdUpdate .Caption = ''Su&bmit" 
cboFire . Enabled = True 
cboPlat form. Enabled = True 
cboSensor .Enabled = True 
txtImpactTime . Enabled = True 
txtBDATime . Enabled = True 
txtBDA. Enabled = True 
cmdAdd. Enabled = False 
cmdSave . Enabled = False 
cmdDel . Enabled = False 
mnuFile . Enabled = False 
datimpact . Enabled = False 
datimpact . Recordset . Edi t 



Else 

If datimpact .Recordset .RecordCount > 0 Then 
datimpact . Recordset . Update 

cboFire . Enabled = False 
cboPlatform. Enabled = False 
cboSensor .Enabled = False 
txtImpactTime . Enabled = False 
txtBDATime . Enabled = False 
txtBDA. Enabled = False 
cmdDel . Enabled = True 
cmdAdd. Enabled = True 
cmdAdd. SetFocus 
cmdUpdate .Caption = "ScUpdate" 
mnuFile . Enabled = True 
datimpact . Enabled = True 



End If 
End If 

End Sub 

Private Sub datImpact_Reposition ( ) 
SetImpactRecordNumber 
End Sub 

Private Sub Form_Load() 
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datimpact . DatabaseName = gstNewDatabase 

stSQLl = "Select Fire from Fire" 

stSQL2 = "Select Platform from Platform" 

stSQL3 = "Select SensorType from SensorType" 



Set rsFire = db . OpenRecordset ( stSQLl ) 

Set rsPlatform = db. OpenRecordset (stSQL2 ) 

Set rsSensor = db. OpenRecordset (stSQL3 ) 

'fill cboFire 
Do Until rsFire.EOF 

cboFire .AddI tern rsFire IFire 
r s F i r e . Mo veN ex t 

Loop 

'fill cboPlatform 
Do Until rsPlatform. EOF 

cboPlatform. AddI tern rsPlatform! Platform 
rsPlatform. MoveNext 

Loop 

'fill cboSensor 
Do Until rsSensor. EOF 

cboSensor . AddI tern rsSensor ! SensorType 
rsSensor . MoveNext 

Loop 

With datimpact 
. Refresh 

If Not .Recordset .EOF Then 
. Recordset . MoveLast 
. Recordset . MoveFirs t 
End If 
End With 

SetlmpactRecordNumber 
End Sub 

Private Sub SetlmpactRecordNumber ( ) 

Dim iRecordCount As Integer 
Dim iCurrentRecord As Integer 

iRecordCount = datimpact . Recordset . RecordCount 
iCurrentRecord = datimpact . Recordset .AbsolutePosition + 1 

If datimpact. Recordset .EOF Then 

datimpact .Caption = "No more records" 

Else 

datimpact .Caption = "Impact Event Record " Sc iCurrentRecord & 

" of " Sc iRecordCount 
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End If 



End Sub 

Private Sub Form_Unload (Cancel As Integer) 

frmMa in. Enabled = True 
Unload Me 

End Sub 

Private Sub mnuFileBack_Click ( ) 

fnnMain. Enabled = True 
Unload Me 

End Sub 

Private Sub innuFilePrint_Click ( ) 
f rmPrint . Show 

On Error GoTo mnuPrintErrors 

If bContinue = True Then 

With dat Impact . Recordset 

If bWord = True Then 

Set WordApp = New Word. Application 
WordApp . Documents . Add 
Set Doc = WordApp. Ac tiveDocument 
Set Sel = WordApp. Selection 

Doc . Tables . Add Range : =Sel . Range , NumRows 

NumColumns : =7 



Sel . TypeText Text : = " Impact " 

Sel .MoveRight unit ; =12 

Sel . TypeText Text : = ” FireEvent ” 
Sel .MoveRight unit: =12 

Sel .TypeText Text : =" ImpactTime" 
Sel .MoveRight unit: =12 

Sel . TypeText Text : = " BDA” 

Sel .MoveRight unit: =12 

Sel .TypeText Text : ="BDATime" 

Sel .MoveRight unit: =12 

Sel .TypeText Text : =" Platform" 
Sel .MoveRight unit: =12 
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: = . RecordCount , 

'12=next cell 
'12=next cell 
'12=next cell 
'12=next cell 
'12=next cell 
'12=next cell 



Sel .TypeText Text ; = " SensorType" 

Sel .MoveRight unit: =12 '12=next cell 

Do Until .EOF 

Sel . TypeText Text : = 1 Impact 

Sel .MoveRight unit: =12 '12=next 

cell 

Sel . TypeText Text : = 1 FireEvent 

Sel .MoveRight unit: =12 '12=next 

cell 

Sel . TypeText Text : = 1 ImpactTime 
Sel .MoveRight unit: =12 

cell 

Sel . TypeText Text : = ! BDA 
Sel .MoveRight unit: =12 

cell 

Sel . TypeText Text : = 1 BDATime 
Sel .MoveRight unit: =12 

cell 

Sel . TypeText Text ; = i Platform 
Sel .MoveRight unit: =12 ' 12=next 

cell 

Sel . TypeText Text : = ! SensorType 

Sel . MoveRight unit: =12 '12=next 

cell 



' 12=next 



' 12=next 



' 12=next 



.MoveNext 



Loop 

WordApp .Visible = True 
Set WordApp = Nothing 



#1 



Else 

If bText = True Then 

Open App.Path & "\ImpactEvents.txt'' For Output As 



Print #1, "Impact"; Chr(9); "FireEvent"; Chr(9) ; 
" ImpactTime" ; Chr ( 9 ) ; _ 

"BDA"; Chr(9); "BDATime"; Chr(9); _ 
"Platform"; Chr (9) ; "SensorType"; 

Chr ( 9 ) 
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Do Until .EOF 



Print #1, ! Impact; Chr(9); _ 

! FireEvent ; Chr ( 9 ) ; 

! Impact Time ; Chr ( 9 ) ; 
!BDA; Chr (9); _ 
!BDATime; Chr(9); 

! Platform; Chr ( 9 ) ; _ 
iSensorType; Chr (9) 



. MoveNext 

Loop 

Close #1 

End If 
End If 

.MoveFirst 

End With 

End If 

bContinue = False 
bWord = False 
bText = False 



mnuPrintErrors : 

Select Case Err. Number 
Case 94 

Sel.TypeText Text:=" 
Resume Next 
End Select 



End Sub 

Private Sub txtFire_Change ( ) 

'selects correct combo box listing 
Dim iindex As Integer 

Dim bFound As Boolean 

rsFire . MoveFirst 
If txtFire <> "" Then 

Do Until iindex = rsFire . RecordCount Or bFound 
If rsFire IFire = txtFire Then 
cboFire.Text = rsFire IFire 
bFound = True 

Else 

rsFire . MoveNext 
iindex = iindex + 1 
End If 
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Loop 
End If 

End Sub 

Private Sub txtSensor_Change ( ) 

'selects correct combo box listing 
Dim iindex As Integer 

Dim bFound As Boolean 

rsSensor . MoveFirst 
If txtSensor <> "" Then 

Do Until iindex = rsSensor . RecordCount Or bFound 
If rsSensor ! SensorType = txtSensor Then 
cboSensor . Text = rsSensor ! SensorType 
bFound = True 

Else 

rsSensor . MoveNext 
iindex = iindex + 1 
End If 



Loop 
End If 

End Sub 

Private Sub txtPlatf orm_Change ( ) 

'selects correct combo box listing 
Dim iindex As Integer 

Dim bFound As Boolean 

rsPlat form. MoveFirst 
If txtPlatf orm <> "" Then 

Do Until iindex = rsPlatfonn. RecordCount Or bFound 
If rsPlatf orm! Platform = txtPlatform Then 
cboPlatf orm. Text = rsPlatformI Plat form 
bFound = True 

Else 

rsPlatf orm. MoveNext 
iindex = iindex + 1 
End If 



Loop 
End If 

End Sub 



'Module: f rmlnitiatives . frm 

'Description: Allows user to access the initiatives 

' records for addition, deletion, and 

' modification. 
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' Programmer : Kevin Colon 

1 ★*★★★*★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★ 



Option Explicit 

Private Sub cmdAdd_Click ( ) 

On Error GoTo HandleAddErrors 

If cmdAdd. Caption = "Sc Add” Then 

datinitiatives . Recordset . AddNew 
txtinitiative . Enabled = True 
txtinitiative . SetFocus 
txtDescription . Enabled = True 
cmdAdd. Caption = "ScCancel" 
cmdSave . Enabled = True 
cmdDel . Enabled = False 
cmdUpdate . Enabled = False 
mnuFile . Enabled = False 
datinitiatives . Enabled = False 



Else 

datinitiatives . Recordset . CancelUpdate 

txtinitiative . Enabled = False 

txtDescription . Enabled = False 

cmdSave . Enabled = False 

cmdDel . Enabled = True 

cmdUpdate . Enabled = True 

mnuFile . Enabled = True 

cmdAdd. Caption = "ScAdd" 

cmdAdd . SetFocus 

datinitiatives . Enabled = True 

End If 

cmdAdd_Click_Exit ; 

Exit Sub 

HandleAddErrors : 

Dim stMess As String 

stMess = "Cannot complete operation. " Sc vbCrLf Sc vbCrLf 
Sc Err .Description 

MsgBox stMess, vbExc lama t ion , "Database Error" 

On Error GoTo 0 'turn off error trapping 



End Sub 

Private Sub cmdDel_Click ( ) 

'delete the current record 
Dim iResp As Integer 

On Error GoTo HandleDelErrors 

If datinitiatives . Recordset . RecordCount > 0 Then 

iResp = MsgBox (" Delete Initiative " Sc txtinitiative . Text Sc 



vbYesNo, "Delete Initiative") 

If iResp = vbYes Then 

With datinitiatives . Recordset 

.Delete 'delete current record 

.MoveNext 'move to following record 

If .EOF Then 

. Move Previous 
If .BOF Then 

MsgBox "The recordset is empty.", 
vbln format ion, "No Records" 

End If 
End If 
End With 
End If 

Else 

MsgBox "No records to delete.", vbExclamation _ 

, "Delete Initiative" 



End If 

cmdDel_Click_Exit : 

Exit Sub 

HandleDelErrors : 

Dim stMsg As String 

stMsg = "Cannot complete operation." & vbCrLf & vbCrLf _ 

8c Err .Description 

MsgBox stMsg, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

End Sub 

Private Sub cmdSave_Click ( ) 

' save the current record 
Dim iResp As Integer 

On Error GoTo HandleSaveErrors 

If txtinitiative <> "" And txtDescription <> "" Then 
txtinitiative = UCase (txtinitiative) 

iResp = MsgBox ("Do you want to add " & txtinitiative & _ 
" to the database?", vbYesNo + vbQuestion, _ 
"Add Initiative" ) 

If iResp = vbYes Then 

datinitiatives . Recordset .Update 
End If 



Else 

MsgBox "You must enter an Initiative and a description before 
saving.", vbExclamation _ 

, "Add Initiative" 

datinitiatives . Recordset . CancelUpdate 
End If 

txtinitiative . Enabled = False 
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txtDescription . Enabled = False 

cmdSave . Enabled = False 
cmdDel - Enabled = True 
datinitiatives. Enabled = True 
mnuFile . Enabled = True 
cmdAdd. Caption = "&Add" 
cmdAdd . SetFocus 
cmdUpdate .Enabled = True 



cmdSave_Click_Exit : 

Exit Sub 

HandleSaveErrors : 

Dim stMess As String 
select case 

sMess . -Record already exists - could not save. 
BsgBox stMess, vbExclamation, -Database Error 
on Error GOTO 0 'turn oE£ error trapping 

ry 'no entry in key field 

sSeJ; . -Enter a Initiative ne«e before saving . - 
MsgBox stMess, vbExclamation, "Database Error 
On^Error GoTo 0 'turn off error trapping 



CeseElse 

StMess = "Record could not be saved. & 
£c Err .Description 

MsgBox stMess, vbExclamation, "Database 

datinitiatives .Recordset . CancelUpdate 

Resume Next 
End Select 



vbCrLf _ 
Error" 



End Sub 

Private Sub cmdUpdate_Click ( ) 

ifcpdopdate. caption = -aupdate- And 

rqa^Tn•i tiatives .Recordset .RecordCount 






cmdUpdate. Caption = "Su&bmit" 
txtinitiative. Enabled - True 
txtDescription. Enabled = True 

cmdDel . Enabled = False 
mnuFile. Enabled = False 
txtinitiative . SetFocus 
cmdAdd. Enabled = False 
datinitiatives .Enabled - False 

datinitiatives .Recordset .Edit 



^^^^If datinitiatives. Recordset. RecordCount > 

datinitiatives . Recordset .Update 



0 Then 



txtinitiative. Enabled = 

txtDescription . Enabled 



False 
= False 
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cmdDel . Enabled = True 
mnuFile . Enabled = True 
cmdAdd. Enabled = True 
cmdAdd . SetFocus 
cmdUpdate. Caption = "ScUpdate” 
datinitiatives . Enabled = True 
End If 
End If 

End Sub 

Private Sub datInitiatives_Reposition ( ) 

S e t In i t i a t i veRecordNumber 

End Sub 

Private Sub Fonn_Load() 

datinitiatives . DatabaseName = gstNewDatabase 

With datinitiatives 
. Refresh 

If Not .Recordset .EOF Then 
. Recordset .MoveLast 
. Recordset .MoveFirst 
End If 
End With 

Se t Ini t i a t i veRecordNumber 



End Sub 

Private Sub Fonn_Unload (Cancel As Integer) 
f rmMain. Show 
fritiMain. Enabled = True 
Unload Me 

End Sub 

Private Sub mnuFileBack_Click ( ) 

f rmMain .Enabled = True 
Unload Me 

End Sub 

Private Sub mnuFileSearch_Click ( ) 

datinitiatives .Recordset . FindFirst "[Description] = 

InputBox ( "Enter the Initiative", "Initiative Search") & 



If datInitiatives.Recordset .NoMatch Then 

MsgBox "Initiative was not found.", vbOKOnly, "Initiative 

Search" 
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'go to first record 



datinitiatives . Recordset .MoveFirst 
End If 

End Sub 

Private Sub SetlnitiativeRecordNumber ( ) 

Dim iRecordCount As Integer 
Dim iCurrentRecord As Integer 

iRecordCount = datinitiatives . Recordset . RecordCount 
iCurrentRecord = datinitiatives .Recordset .AbsolutePosition + 1 
If datinitiatives . Recordset . EOF Then 

datinitiatives . Caption = "No more records" 

Else 

datinitiatives .Caption = "Initiative " & iCurrentRecord & 

" of " Sc iRecordCount 

End If 
End Sub 



/★*★★*★*★★★*★*★★*★*★*★*★*★★★★*★★★*★*★★*★★★*★*★★**★★**•**★*★★**★ 
'Module: frmLAWS.frm 

'Description: Allows user to access the LAWS terminal 

' records for addition, deletion, and 

' modification. 

'Programmer: Kevin Colon 

I *★★***★★****★★★*★★****■*•****★★**★*•*•*•*•★***★*★★★***★★*■*■**★★★**** 



Option Explicit 

Dim rsPlatform As Recordset 

Dim stSQL As String 

Private Sub cboPlatf orm_Click ( ) 

If cboPlatf oirm.Listlndex >= 0 Then 
txtPlatform = cboPlatf orm.Text 
End If 

End Sub 

Private Sub cmdAdd_Click ( ) 

On Error GoTo HandleAddErrors 

If cmdAdd. Caption = "ScAdd” Then 
datLAWS . Recordset .AddNew 
txtTerminal . Enabled = True 
txtTerminal . SetFocus 
txtFunct ion. Enabled = True 
cboPlatf orm. Enabled = True 
cmdAdd. Caption = "ScCancel" 
cmdSave . Enabled = True 
cmdDel . Enabled = False 
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cmdUpdate . Enabled = False 
mnuFile . Enabled = False 
datLAWS . Enabled = False 



Else 

datLAWS . Recordset . CancelUpdate 
txtTerminal .Enabled = False 
txtFunction. Enabled = False 
cboPlatform. Enabled = False 
cmdSave. Enabled = False 
cmdDel . Enabled = True 
cmdUpdate . Enabled = True 
mnuFile. Enabled = True 
cmdAdd. Caption = "Sc Add" 
cmdAdd . SetFocus 
datLAWS. Enabled = True 

End If 

cmdAdd_C lie k_Ex i t : 

Exit Sub 

HandleAddErrors : 

Dim stMess As String 

stMess = "Cannot complete operation. " & vbCrLf & vbCrLf _ 

Sc Err . Description 

MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

End Sub 

Private Sub cmdDel_Click ( ) 

'delete the current record 
Dim iResp As Integer 

On Error GoTo HandleDelErrors 

If datLAWS. Recordset .RecordCount > 0 Then 

iResp = MsgBox ( "Delete Terminal " & txtTerminal . Text & "?" 

vbYesNo, "Delete Terminal") 

If iResp = vbYes Then 

With datLAWS .Recordset 

.Delete 'delete current record 

.MoveNext 'move to following record 

If .EOF Then 

. Move Previous 
If .BOF Then 

MsgBox "The recordset is empty.", 

vbinformation, "No Records" 

End If 
End If 
End With 
End If 

Else 

MsgBox "No records to delete.", 
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vbExclamation _ 



Delete Terminal 



End If 

cmdDel_Click_Exit : 

Exit Sub 

HandleDel Errors : 

Dim stMsg As String 

stMsg = "Cannot complete operation." & vbCrLf & vbCrLf _ 

Sc Err .Description 

MsgBox stMsg, vbExclamat ion, "Database Error" 

On Error GoTo 0 'turn off error trapping 

End Sub 

Private Sub cmdSave_Click ( ) 

' save the current record 
Dim iResp As Integer 

On Error GoTo HandleSaveErrors 
If txtTerminal .Text <> "" Then 

txtTerminal . Text = UCase ( txtTerminal . Text ) 

iResp = MsgBox ("Do you want to add " & txtTenninal . Text Sc 
" to the database?", vbYesNo + vbQuestion, _ 
"Add Terminal " ) 

If iResp = vbYes Then 

datLAWS . Recordset . Update 
End If 



Else 

MsgBox "You must enter a Terminal before saving.", 
vbExclamat ion _ 

, "Add Terminal" 
datLAWS . Recordset . CancelUpdate 
End If 

txtTerminal . Enabled = False 
txtFunct ion. Enabled = False 
cboPlat form. Enabled = False 
cmdSave . Enabled = False 
cmdDel . Enabled = True 
datLAWS . Enabled = True 
mnuFile . Enabled = True 
cmdAdd. Caption = "&Add" 
cmdAdd . SetFocus 
cmdUpdate . Enabled = True 



cmdSave_Click_Exi t : 

Exit Sub 

HandleSaveErrors : 

Dim stMess As String 
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Select Case Err. Number 

Case 3022 'duplicate key field 

stMess = "Record already exists — could not save> ' " 
MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

Case 3058, 3315 'no entry in key field 

stMess = "Enter a location before saving." 

MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

Case Else 

stMess = "Record could not be saved." & vbCrLf _ 

Sc Err . Description 

MsgBox stMess, vbExclamation, "Database Error" 
datLAWS . Recordset . CancelUpdate 
Resume Next 
End Select 

End Sub 

Private Sub cmdUpdate_Click ( ) 

If cmdUpdate. Caption = "ScUpdate" And _ 

datLAWS . Recordset . RecordCount > 0 Then 

cmdUpdate. Caption = "SuScbmit" 
txtTerminal . Enabled = True 
txtFunct ion. Enabled = True 
cboPlat form. Enabled = True 
cmdDel . Enabled = False 
mnuFile . Enabled = False 
txtTei-minal . SetFocus 
cmdAdd. Enabled = False 
datLAWS . Enabled = False 
datLAWS . Recordset . Edit 

Else 

If datLAWS. Recordset .RecordCount > 0 Then 
txtTerminal = UCase ( txtTerminal ) 
datLAWS . Recordset . Update 

txtTerminal . Enabled = False 
txtFunction. Enabled = False 
cboPlatform. Enabled = False 
cmdDel . Enabled = True 
mnuFile. Enabled = True 
cmdAdd. Enabled = True 
cmdAdd . SetFocus 
cmdUpdate. Caption = "ScUpdate" 
datLAWS . Enabled = True 
End If 
End If 

End Sub 

Private Sub datLAWS_Reposition ( ) 
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SetTerminalRecordNumber 



End Sub 

Private Sub FillPlatf ormCombo ( ) 

Dim iCount As Integer 
'fill the PlatType combo box 
cboPlatform. Clear 

With rsPlatform 

iCount = .RecordCount 

'fill the list 
Do Until .EOF 

If ! Platform <> "" Then 

cboPlatform. Additem ! Platform 

End If 
. MoveNext 

Loop 
End With 



End Sub 

Private Sub Form_Load ( ) 

datLAWS . DatabaseName = gstNewDat abase 

stSQL = "Select Platform from Platform" 
Set rsPlatform = db . OpenRecordset ( stSQL) 

FillPlatf ormCombo 

With datLAWS 
.Refresh 

If Not .Recordset .EOF Then 
. Recordset .MoveLast 
. Recordset .MoveFirst 
End If 
End With 

SetTerminalRecordNumber 
End Sub 

Private Sub Form_Unload (Cancel As Integer) 

f rmMa in . Enabled = True 
Unload Me 

End Sub 
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Private Sub mnuFileBack_Click ( ) 

f ntiMa in . Enabled = True 
Unload Me 

End Sub 

Private Sub mnuFileSearch_Click ( ) 

datLAWS. Recordset .FindFirst " [LAWSTerminal] = _ 

InputBox( "Enter the LAWS Terminal", "LAWS Terminal 

Search") & 

If da tLAWS. Recordset .NoMatch Then 

MsgBox "LAWS Terminal was not found.", vbOKOnly, "LAWS Terminal 

Search" 

datLAWS . Recordset . MoveFirst 'go to first record 

End If 

End Sub 

Private Sub SetTerminalRecordNumber ( ) 

Dim iRecordCount As Integer 
Dim iCurrentRecord As Integer 

iRecordCount = datLAWS . Recordset . RecordCount 
iCurrentRecord = datLAWS . Recordset .AbsolutePosition + 1 
If datLAWS . Recordset . EOF Then 

datLAWS .Caption = "No more records" 

Else 

datLAWS .Caption = "Terminal " & iCurrentRecord & _ 

" of " & iRecordCount 

End If 
End Sub 

Private Sub txtPlatf orm_Change ( ) 

'selects correct combo box listing 
Dim i Index As Integer 
Dim bFound As Boolean 

rsPlatform. MoveFirst 

If txtPlatform <> "" Then 

Do Until iindex = rsPlatform. RecordCount Or bFound 
If rsPlatform! Platform = txtPlatform Then 
cboPlatform. Text = rsPlatform! Platform 
bFound = True 

Else 

rsPlatform . MoveNext 
iindex = iindex + 1 
End If 

Loop 



133 



Else 



cboPlatf orm. Listindex = -1 
End If 



End Sub 



'Module: frmMain.frm 

'Description: Allows user to access the forms linked to 

' the database by use of dropdown menus . 

'Programmer: Kevin Colon 



Option Explicit 

Dim rsAcquisition As Recordset 

Dim rsFire As Recordset 

Dim rsFireCommand As Recordset 

Dim rsimpact As Recordset 

Dim rsMensuration As Recordset 

Dim rsNomination As Recordset 

Dim rsTarget As Recordset 

Dim rsLAWSdata As Recordset 

Dim rsGISRS As Recordset 

Dim rsLAWS As Recordset 

Dim rsPlatform As Recordset 

Dim rsSensor As Recordset 

Dim rsThreat As Recordset 

Dim rsWeapon As Recordset 

Dim stSQLl As String 

Dim stSQL2 As String 

Dim stSQLS As String 

Dim stSQL4 As String 

Dim stSQLS As String 

Dim stSQL6 As String 

Dim stSQL7 As String 

Dim stSQLS As String 

Dim stSQL9 As String 

Dim stSQLlO As String 

Dim stSQLll As String 

Dim stSQL12 As String 

Dim stSQLlS As String 

Dim stSQL14 As String 

Dim stSearch As String 

Dim stMessage As String 

Dim bGFound As Boolean 

Dim bLFound As Boolean 



Private Sub AddAcquisition ( ) 
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rsAcquisition . AddNew 



If rsAcquisition! Acquisi tionCounter < 10 Then 

rsAcquisition! Acquisition = "AEOOOO" & 
rsAcquisition lAcquisitionCounter 

Else 

If rsAcquisition! AcquisitionCounter < 100 Then 

rsAcquisition! Acquisition = "AEOOO" Sc 
rsAcquisition lAcquisitionCounter 

Else 

If rsAcquisition lAcquisitionCounter < 1000 Then 

rsAcquisition 1 Acquisition = "AEOO" Sc 
rsAcquisition! AcquisitionCounter 

Else 

If rsAcquisition! AcquisitionCounter < 10000 Then 

rsAcquisition! Acquisition = ”AE0" Sc 
rsAcquisition! AcquisitionCounter 

Else 

rsAcquisition ! Acquisition = "AE" Sc 
rsAcquisition! AcquisitionCounter 

End If 
End If 
End If 
End I f 

rsAcquisitionlTrackld = rsLAWSdata ! Trackid 
rsAcquisition IThreatType = rsLAWSdata IThreatType 

'get string from LAWS data and use it for platfoirm search to 
'fill platform field in Acquisition table from LAWSdata info 
If rsLAWSdata ! Nominator <> " " Then 

stSearch = rsLAWSdata ! Nominator 

rsGISRS .MoveFirst 
rsLAWS .MoveFirst 
bGFound = False 
bLFound = False 

'checks GISRS table 

Do Until rsGISRS. EOF Or bGFound = True 

If rsGISRS IGISRSTerminal = stSearch Then 

bGFound = True 
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rsAcquisition i AcqPlatf orm = rsGISRS 1 Location 



Else 

rsGISRS . MoveNext 
End If 

Loop 

'checks LAWS table if search not successful in GISRS table 
If bGFound = False Then 

Do Until rsLAWS.EOF Or bLFound = True 

If rsLAWS ILAWSTerminal = stSearch Then 

bLFound = True 

rsAcquisition iAcqPlatform = rsLAWS ! Location 



Else 

rsLAWS . MoveNext 
End If 

Loop 
End If 
End If 

rsAcquisition 1 TrackLocation = rsLAWSdata ! Targe tLocation 
rsAcquisition ITrackAltitude = rsLAWSdata ! Altitude 
rsAcquisition ! Remark = rsLAWSdata ! ThreatDescription 



rsAcquisition lAcqSensorType = rsLAWSdata lAcqSensor 
If rsLAWSdata lAcqSensor = Null Then 

rsAcquisition lAcqSensorType = "None" 

Else 

rsAcquisition! AcqSensorType = rsLAWSdata lAcqSensor 
End If 

If rsLAWSdata lAcqTime <> Null Or rsLAWSdata ! Ac qTime <> "" Then 
rsAcquisition! AcqTime = rsLAWSdata lAcqTime 
End If 

rsAcquisition . Update 



End Sub 

Private Sub AddFireO 



136 



rsFireCommand.MoveLast 



If rsLAWSdata IRoundsFired <> "" And rsLAWSdata ! RoundsFired > 0 Then 
r s F i r e . AddNew 

If rsFire ! FireCounter < 10 Then 

rsFirelFire = "FEOOOO" Sc rsFire ! FireCounter 

Else 

If rsFire! FireCounter < 100 Then 

rsFirelFire = "FEOOO" & rsFire ! FireCounter 

Else 

If rsFire! FireCounter < 1000 Then 

rsFire! Fire = "FEOO" & rsFire ! FireCounter 

Else 

If rsFire ! FireCounter < 10000 Then 

rsFirelFire = "FEO" Sc rsFire ! FireCounter 

Else 

rsFirelFire = "FE" & rsFire ! FireCounter 

End If 
End If 
End If 
End If 

rsFire ! FireCommand = rsFireCommand ! FireCommand 
rsFire ! RoundsFired = rsLAWSdata I RoundsFired 
rsFire ! FireTime = rsLAWSdata ! FireEventTime 

rsFire. Update 

Addimpact 

End If 

End Sub 

Private Sub AddFireCommand ( ) 

Dim bPFound As Boolean 
rsTarget .MoveLast 
rs F i r eC ommand . AddNew 
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If rsFireCommand! FireCommandCounter < 10 Then 



rsFireCommand! FireCommand = ''FCOOOO” Sc 
rsFireCommand 1 FireCommandCounter 

Else 

If rsFireCommand! FireCommandCounter < 100 Then 

rsFireCommand! FireCommand = "FCOOO" & 
rsFireCommand ! FireCommandCounter 

Else 

If rsFireCommand! FireCommandCounter < 1000 Then 

rsFireCommand! FireCommand = "FCOO” & 
rsFireCommand ! FireCommandCounter 

Else 

If rsFireCommand! FireCommandCounter < 10000 Then 

rsFireCommand! FireCommand = "FCO" Sc 
rsFireCommand ! FireCommandCounter 

Else 

rsFireCommand! FireCommand = ”FC" Sc 
rsFireCommand I FireCommandCounter 

End If 
End If 
End If 
End If 

rsFireCommand! Nomination = rsTarget ! Nomination 
rsFireCommand iOCCCId = rsLAWSdata ! Targe tControl 
rsFireCommand! Target Id = rsTarget ! Target Id 

stSearch = rsLAWSdata I FirerPlatform 

rsPlatf orm.MoveFirst 

Do Until rsPlatform.EOF Or bPFound = True 

If rsPlatformlLAWSFormat = stSearch Then 

bPFound = True 

rsFireCommand! FirerPlatform = rsPlatform ! Platform 

Else 

r s P 1 a t f orm . MoveNex t 
End If 



Loop 

If bPFound = False Then 

rsFireCommand ! FirerPlatform = rsLAWSdata ! FirerPlatform Sc "-TAC" 
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End If 



If rsLAWSdata IRoundsFired > 0 Then 
rsFireCommandl Engage = True 
End If 

rsFireCoiranand . Update 
End Sub 

Private Sub Addimpact { ) 
rsFire . MoveLast 
rs Impact . AddNew 

If rsimpact ! ImpactCounter < 10 Then 

rsimpact i Impact = "lEOOOO" & rsimpact 1 ImpactCounter 

Else 

If rsimpact ! ImpactCounter < 100 Then 

rsimpact I Impact = "lEOOO” & rsimpact ! ImpactCounter 

Else 

If rsimpact ! ImpactCounter < 1000 Then 

rsimpact ! Impact = "lEOO” & rsimpact ! ImpactCounter 

Else 

If rsimpact ! ImpactCounter < 10000 Then 

rsimpact 1 Impact = ”IE0" & rsimpact ! ImpactCounter 

Else 

rsimpact ! Impact = "IE" & rsimpact ! ImpactCounter 

End If 
End If 
End If 
End If 

rsimpact ! FireEvent = rsFire IFire 

rsimpact I ImpactTime = rsLAWSdata I ImpactTime 

rsimpact .Update 
End Sub 
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Private Sub AddMensuration { ) 



rsAcquisition . MoveLast 
rsMensuration . AddNew 

If rsMensuration ! MensurationCounter < 10 Then 

rsMensuration ! Mensuration = "MEOOOO” & 
rsMensuration ! MensurationCounter 

Else 

If rsMensuration! MensurationCounter < 100 Then 

rsMensuration ! Mensuration = "MEOOO” & 
rsMensuration ! MensurationCounter 

Else 

If rsMensuration! MensurationCounter < 1000 Then 

rsMensuration 'Mensuration = "MEOO" & 
rsMensuration ! MensurationCounter 

Else 

If rsMensuration 'MensurationCounter < 10000 Then 

rsMensuration! Mensuration = "MEO" & 
rsMensuration ! MensurationCounter 

Else 

rsMensuration 'Mensuration = "ME" & 
rsMensuration ! MensurationCounter 

End If 
End If 
End If 
End If 

rsMensuration ! Acquisition = rsAcquisition ! Acquisition 
' rsMensuration !MenSensorType = ? 

' rsMensuration ! MenPlatform = ? 

stSearch = rsLAWSdata ! Nominator 

rsGISRS . MoveFirst 
rsLAWS .MoveFirst 
bGFound = False 
bLFound = False 

'checks GISRS table 

Do Until rsGISRS. EOF Or bGFound = True 

If rsGISRS !GISRSTerminal = stSearch Then 

bGFound = True 
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rsMensuration ! GISRSTerminal = rsGISRS ‘ GISRSTerminal 



Else 

rsGISRS .MoveNext 
End If 

Loop 

'checks LAWS table if search not successful in GISRS table 
If bGFound = False Then 

Do Until rsLAWS.EOF Or bLFound = True 

If rsLAWS iLAWSTerminal = stSearch Then 

bLFound = True 

rsMensuration I GISRSTerminal = rsLAWS ! LAWSTerminal 

Else 

rsLAWS . MoveNext 
End If 

Loop 
End If 

rsMensuration .Update 



End Sub 

Private Sub AddNomination { ) 
rsMensuration . MoveLast 
rsNomination . AddNew 

If rsNomination INominationCounter < 10 Then 

rsNomination I Nomination = "NEOOOO" & 
rsNomina t i on ! Nominat i onCount er 

Else 

If rsNomination INominationCounter < 100 Then 

rsNomination! Nomination = "NEOOO" & 
rsNomination INominationCounter 

Else 

If rsNomination INominationCounter < 1000 Then 

rsNomination I Nomination = "NEOO" & 
rsNominat i on I Nominat ionCounter 

Else 

If rsNomination INominationCounter < 10000 Then 
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r sNominat ion ! Nomination = "NEO" & 
rsNomination ! NominationCounter 

Else 

rsNomination 'Nomination = "NE" & 
rsNomination ! NominationCounter 

End If 
End If 
End If 
End If 

rsNomination ! Acquisition = rsMensuration 'Acquisition 
rsNomination ! Mensuration = rsMensuration ! Mensuration 

St Search = rsLAWSdata ! Nominator 

rsGISRS . MoveFirst 
rsLAWS .MoveFirst 

bGFound = False 
bLFound = False 

'checks GISRS table 

Do Until rsGISRS. EOF Or bGFound = True 

If rsGISRS ! GISRSTerminal = stSearch Then 

bGFound = True 

rsNomination ! GISRSTerminal = rsGISRS ! GISRSTerminal 



Else 

rsGISRS .MoveNext 
End If 

Loop 

'checks LAWS table if search not successful in GISRS table 
If bGFound = False Then 

Do Until rsLAWS.EOF Or bLFound = True 

If rsLAWS ILAWSTerminal = stSearch Then 

bLFound = True 

rsNomination ! GISRSTerminal = rsLAWS iLAWSTerminal 



Else 

rsLAWS . MoveNext 



End If 

Loop 
End If 



rsNomination ! Targe tLocationError = 
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rsLAWSdata !TLE 



rsNoininat ion . Updat© 



End Sub 

Private Sub AddTarget ( ) 

On Error GoTo HandleTargetError 
rsNomination . MoveLast 
rsTarget . AddNew 

rsTarget ! Targetid = rsLAWSdata ! Target Id 
rsTarget ITargetNLTTime = rsLAWSdata INLTTime 
rsTarget iWeaponType = rsLAWSdata IWeaponType 
rsTarget ITargetLocation = rsLAWSdata lTargetLocation2. 
rsTarget ! Description = rsLAWSdata ! TargetType 
rsTarget ! Remark = rsLAWSdata ! Remark 

rsTarget! Nomination = rsNomination! Nomination 
rsTarget .Update 
AddTarget_Exit : 

Exit Sub 



HandleTargetError : 

Select Case Err. Number 

Case 3022 *. « r 

stMessage = "Targetid repeated. Target & 

rsLAWSdata! Targetid _ ^ 

& vbCrLf Sc " not saved as new record. 
MsgBox stMessage, vbOKOnly + vbinf ormation 

rsTarget .CancelUpdate 

End Select 
Resume 



End Sub 

P^fivate Sub mnuDataSort — Click ( ) 

Dim rsSorted As Recordset 

Dim stPtevThreat As String 
Dim stPrevTrack As String 

Dim stPrevNominator As String 
Dim stNowThreat As String 

Dim stNowTrack As String 

Dim stNowNominator As String 
Dim stNextThreat As String 
Dim stNextTrack As String 

Dim stNextNominator As String 
Dim stSQLl As String 
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Dim stSQL2 



As String 



stSQLl = "Select * from LAWSSorted" 

Set rsSorted = db.OpenRecordset (stSQLl) 

With rsSorted 

Do Until .EOF 

stNowThreat = 1 ThreatDescription 

If iTrackId <> "" Or ITrackId <> Null Then 
stNowTrack = ITrackId 

Else 

StNowTrack = " " 

End If 

If INominator <> "" Or [Nominator <> Null Then 
stNowNominator = INominator 

Else 

StNowNominator = " " 

End If 

If StNowTrack = "" Or stNowNominator = "" Then 
. MovePrevious 
If Not .BOF Then 

stPrevThreat = [ThreatDescription 
stPrevTrack = ITrackId 
stPrevNominator = INominator 

If StPrevThreat = stNowThreat Then 
. MoveNext 
.Edit 

ITrackId = stPrevTrack 
INominator = stPrevNominator 
. Update 



Else 

. MoveNext 
.MoveNext 

stNextThreat = 'ThreatDescription 
stNextTrack = ITrackId 
stNextNominator = INominator 
If StNextThreat = stNowThreat Then 
. MovePrevious 
.Edit 

ITrackId = stNextTrack 
INominator = stNextNominator 
. Update 

End If 
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End If 



Else 

.MoveNext 

.MoveNext 

stNextThreat = IThreatDescription 
stNextTrack = ITrackld 
stNextNominator = ! Nominator 
. Move Previous 

If StNextThreat = stNowThreat Then 
.Edit 

iTrackId = stNextTrack 
[Nominator = stNextNominator 
.Update 
End If 



End If 
End If 

. MoveNext 



End 


Loop 

with 






End Sub 


Private 


Sub mnuDataTransf er_Click 


Dim 


rsLAWSInfo 


As 


Recordset 


Dim 


rsSorted 


As 


Recordset 


Dim 


stLAWSInfo 


As 


String 


Dim 


stSorted 


As 


String 


Dim 


StTLE 


As 


String 



stLAWSInfo = "Select * from LAWS" 
stSorted = "Select * from LAWSSorted" 

Set rsLAWSInfo = db . OpenRecordset { stLAWSInfo ) 

Set rsSorted = db . OpenRecordset (stSorted) 

With rsLAWSInfo 

Do Until .EOF 

rsSorted . AddNew 

rsSorted ITargetId = ITargetId 

rsSorted ! ThreatDescription = ! ThreatDescription 
rsSorted ! TargetLocat ion = ! TargetLocat ion 
rsSorted INLTTime = INLTTime 
rsSortedl Altitude = [Altitude 
rsSorted [WeaponType = [WeaponType 
rsSorted [ PlatLocat ion = [ PlatLocation 
rsSorted [ThreatType = [ThreatType 
If [Remarkl <> "" Then 

stTLE = Left (rsLAWSInfo [Remarkl, 2) 



End If 



If stTLE = "CE" Then 

rsSorted'TLE = IRemarkl 

rsSorted! Remark = IRemarkl 



End If 

rsSorted lAcqTime = lAcqTime 
•r<?Sorted!AcqSensor = lAcqSensor 

rsSorted lTargetLocation2 = iT^getLoca lon 
rsSorted ITargetType = ITargetT^e 
rsSorted -RoundsFired = IRoundsFired 
rsSorted iFirerPlatform = ! FirerPlatform 

rsSorted! TargetControl = iTargetContro 
rsSorted! Priority = ! Priority 

rsSorted llmpactTime = llmpactTime 
rsSorted! Nominator = ! Nominator 



If iRemark2 
StTLE = 
End If 



<> ” " Then 

Left (rsLAWSInfo lRemark2 , 



2 ) 



If StTLE = "SH" Then 

rsSorted! Remark = !Remark2 

Else , „ 

rsSorted !TrackId = !Remark2 



End If 

rsSorted iFireEventTime = ! FireEventTime 

rsSorted . Update 

rsLAWSInfo .MoveNext 



Loop 
End With 



End Sub 

Private Sub mnuFileExit_Click ( ) 

'terminates application 
End 



End Sub 



Private Sub mnuFileOpen_Click ( ) 

'Select a different database 



(FEE) 



On Error GoTo HandleError 
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with frmMain .dlgDatabase 

.FileName = gstNewDatabase 

.Filter = "Database files ( * .mdb) | * .mdb | All files (*.*)|*.*" 

'if error encountered, skip next command 
On Error Resume Next 
. ShowOpen 

If Err. Number = cdlCancel Then 
gstNewDatabase = " " 

Else 



'set return filename to selected file 

gstNewDatabase = .FileName 

frmMain. Caption = .FileTitle & " Database" 

End If 
End With 

Set db = OpenDatabase (gstNewDatabase) 

'display Main form 
frmMain . Show 

Sub_Exit : 

Exit Sub 

HandleError : 

Select Case Err. Number 

Case 3004, 3024, 3044 

If gstNewDatabase = "" Then 

MsgBox "No database was selected.", vbExclamation, 

"Database Error" 



'disables options only available when a database is 

selected 

Me .mnuFileQueries . Enabled = False 
Me .mnuFileSQL . Enabled = False 
Me .mnuUpdate . Enabled = False 



location 



Else 

Set db = OpenDatabase (gstNewDatabase) 'new database 



'reenables options once a database is selected 
Me .mnuFileQueries . Enabled = True 
Me .mnuFileSQL. Enabled = True 
Me .mnuUpdate. Enabled = True 

Resume 'open the database 

End If 

Case Else 
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MsgBox Err .Description, vbOKOnly + vbExclamation, 
"Unexpected Error" 

End 'exit the project 

End Select 

End Sub 

Private Sub mnuFileQueries_Click ( ) 
f rmQueries . Show 
Me. Enabled = False 



End Sub 

Private Sub mnuFileSQL_Click { ) 

f rmSQL . Show 

Me. Enabled = False 

End Sub 

Private Sub mnuHelpAbout_Click { ) 
f rmAbout . Show 



End Sub 



Private Sub mnuPopulate_Click { ) 



StSQLl = 


" Select 


stSQL2 = 


" Select 


stSQLS = 


" Select 


stSQL4 = 


" Select 


stSQLS = 


" Select 


stSQLS = 


" Select 


StSQL7 = 


" Select 


stSQLS — 


" Select 


stSQL9 = 


" Select 


stSQLlO = 


" Select 


StSQLll = 


" Select 


stSQL12 = 


" Select 


stSQLlS = 


" Select 


stSQL14 = 


" Select 



from Acquisition" 
from Fire" 
from FireCommand" 
from Impact" 
from Mensuration" 
from Nomination" 
from Target" 
from LawsSorted2" 
from GISRSTerminal" 

* from LAWSTerminal " 

* from Platform" 

* from SensorType" 

* from ThreatType" 

* from WeaponType" 



Set rsAcquisition = db.OpenRecordset (stSQLl) 
Set rsFire = db . OpenRecordset (stSQL2 ) 

Set rsFireCommand = db. OpenRecordset ( stSQL3 ) 
Set rsimpact = db . OpenRecordset { stSQL4 ) 

Set rsMensuration = db. OpenRecordset (stSQLS ) 
Set rsNomination = db . OpenRecordset ( stSQLG ) 
Set rsTarget = db .OpenRecordset (stSQL7 ) 

Set rsLAWSdata = db.OpenRecordset (stSQLS) 

Set rsGISRS = db . OpenRecordset { stSQL9 ) 

Set rsLAWS = db . OpenRecordset (stSQLlO ) 



Set rsPlatform = db. OpenRecordset (stSQLll) 
Set rsSensor = db. OpenRecordset ( stSQL12 ) 
Set rsThreat = db . OpenRecordset ( stSQLlS ) 
Set rsWeapon = db. OpenRecordset (stSQL14) 



If rsLAWSdata.RecordCount > 0 Then 

Do Until rsLAWSdata.EOF 'fix to .EOF 

If rsAcquisition.RecordCount = 0 Then 

AddAcquisition 
AddMensuration 
AddNomi nation 
AddTarget 
AddF i reCoiranand 
AddFire 

rsLAWSdata . MoveNext 



Else 



r sAcqui si t ion . MoveLas t 

If rsAcquisition ! Trackid <> rsLAWSdata I Trackid Then 

AddAcquisition 
AddMensuration 
AddNomi nation 
AddTarget 
AddF i r eC ommand 
AddFire 

rsLAWSdata . MoveNext 



Else 



AddTarget 
AddF i r eCommand 
AddFire 

rsLAWSdata . MoveNext 
End If 
End If 



Loop 

Else 



vbCrLf 



stMessage 
& " 



"No data to import from table; LawsSorted " & 
in database: " & 



Me . dlgDatabase . FileTi tie 

MsgBox stMessage, vbOKOnly + vbExclamation, "Data Population" 
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End If 



End Sub 

private Sub mnuUpdateAcquisition_Click( ) 

f rmAcqEvents . Show 
Me. Enabled = False 

End Sub 

private Sub mnuUpdateAcronyms.ClickO 

f rmAcronyms . Show . 

Me. Enabled = False 

End Sub 

private Sub mnuUpdateDataTypes_Click() 

f rmDataTypes . Show 
Me. Enabled = False 

End Sub 

Private Sub mnuUpdateFBE_Click ( ) 

frmFBE.Show 

Me. Enabled = False 

End Sub 

Private Sub mnuUpdateFire_Click ( ) 

f rmFireEvent . Show 
Me. Enabled = False 

End Sub 

private Sub rmuUpdateFireCoirunand_Click ( ) 

f rmFireCmdEvent . Show 
Me. Enabled = False 

End Sub 

private Sub mnuUpdateGISRS_Click ( ) 

f rmGISRS . Show 
Me. Enabled = False 

End Sub 
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Private Sub mnuUpdatelmpact^Click ( ) 

f rmlmpactEvent . Show 
Me. Enabled = False 

End Sub 

Private Sub mnuUpdateInitiatives_Click ( ) 

f rmlnitiatives . Show 
Me. Enabled = False 

End Sub 

Private Sub mnuUpdateLAWS_Click ( ) 

f rmLAWS . Show 

Me. Enabled = False 

End Sub 

Private Sub mnuUpdateMensuration_Click ( ) 

f rmMenEvents . Show 
Me. Enabled = False 

End Sub 

Private Sub mnuUpdateNomination_Click ( ) 

f nnNoinEvents . Show 
Me. Enabled = False 

End Sub 

Private Sub mnuUpdateObjectives_Click ( ) 

f rmObjectives . Show 
Me. Enabled = False 

End Sub 

Private Sub mnuUpdatePlatf orms_Click ( ) 

f rmPlatf onns . Show 
Me. Enabled = False 

End Sub 

Private Sub mnuUpdatePlatTypes_Click ( ) 

f rmPlatf ontiTypes . Show 
Me. Enabled = False 

End Sub 
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Private Sub mnuUpdateQuestions_Click ( ) 

f rmQuestions . Show 
Me. Enabled = False 

End Sub 

Private Sub mnuUpdateSensTypes_Click ( ) 

f rmSensorTypes . Show 
Me . Enabl ed = False 

End Sub 

Private Sub mnuUpdateTargets_Click ( ) 

frmTarget Events . Show 
Me. Enabled = False 

End Sub 

Private Sub mnuUpdateThreatTypes_Click ( ) 

f rmThreatTypes . Show 
Me. Enabled = False 

End Sub 

Private Sub mnuUpdateWeaponTypes_Click ( ) 

f rmWeaponTypes . Show 
Me. Enabled = False 

End Sub 

Private Sub mnuViewTargets__Click ( ) 

f rmTargets2 . Show 
Me. Enabled = False 

End Sub 






'Module : 
'Description: 



' Programmer : 



f rmMenEvents . f inn 

Allows user to access the mensuration event 
records for addition, deletion, and 
modification. 

Kevin Colon 






Option Explicit 
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Dim rsAcquisition 
Dim rsSensor 
Dim rsPlatform 
Dim rsGISRS 
Dim rsPTW 
Dim stSQLl 
Dim stSQL2 
Dim stSQL3 
Dim stSQL4 
Dim stSQLS 
Private WordApp 
Private Doc 
Private Sel 



As Recordset 
As Recordset 
As Recordset 
As Recordset 
As Recordset 
As String 
As String 
As String 
As String 
As String 

As Word. Application 
As Word . Document 
As Word. Selection 



Private Sub cboAcquisition_Click ( ) 

If cboAcquisition.ListIndex >= 0 Then 

txtAcquisition = cboAcquisit ion. Text 
End If 

End Sub 

Private Sub cboGISRS_Click ( ) 

If cboGISRS .Listindex >= 0 Then 
txtGISRS = cboGISRS . Text 
End If 

End Sub 

Private Sub cboPlat f orm_Click ( ) 

If cboPlatform. Listindex >= 0 Then 
txtPlatform = cboPlatform. Text 
End If 

End Sub 

Private Sub cboPTW_Click ( ) 

If cboPTW. Listindex >= 0 Then 
txtPTW = cboPTW.Text 
End If 

End Sub 

Private Sub cboSensor_Click ( ) 

If cboSensor . Listindex >= 0 Then 
txtSensor = cboSensor . Text 
End If 

End Sub 
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Private Sub cmdAdd_Click ( ) 



On Error GoTo HandleAddErrors 

If cmdAdd. Caption = "&Add Event" Then 

datMenEvents . Recordset . AddNew 
cboAcquisition. Enabled = True 
cboPlatfoxTn. Enabled = True 
cboSensor . Enabled = True 
cboGISRS . Enabled = True 
cboPTW. Enabled = True 
cboAcquisition .Listindex = -1 
cboPlatf orm.Listlndex = -1 
cboSensor . Listindex = -1 
cboGISRS. Listindex = -1 
cboPTW. Listindex = -1 
txtTimeRqstSent . Enabled = True 
txtTimeRqstRcvd . Enabled = True 
txtTimeInfoSent . Enabled = True 
txtTimeInfoRcvd . Enabled = True 
cmdUpdate . Enabled = False 
cmdSave . Enabled = True 
cmdDel . Enabled = False 
cmdAdd. Caption = "&Cancel" 
mnuFile . Enabled = False 
datMenEvents . Enabled = False 



Else 



datMenEvents . Recordset . CancelUpdate 
cboAcquisition . Enabled = False 
cboPlatform. Enabled = False 
cboSensor . Enabled = False 
cboGISRS . Enabled = False 
cboPTW. Enabled = False 
txtTimeRqstSent . Enabled = False 
txtTimeRqstRcvd. Enabled = False 
txtTimeInfoSent . Enabled = False 
txtTimeInfoRcvd. Enabled = False 
cmdUpdate. Enabled = True 
cmdSave . Enabled = False 
cmdDel . Enabled = True 
cmdAdd. Caption = "&Add Event" 
mnuFile. Enabled = True 
datMenEvents . Enabled = True 
cmdAdd . SetFocus 

End If 

cmdAdd_Click_Exit : 

Exit Sub 



HandleAddErrors : 
Dim stMess 



As String 
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5c vbCrLf 5c vbCrLf 5c 



stMess = "Cannot complete operation. " 

Err . Description 

MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

End Sub 

Private Sub cmdDel_Click ( ) 

Dim iResp As Integer 

On Error GoTo HandleDelErrors 

If datMenEvents . Recordset . RecordCount > 0 Then 

iResp = MsgBox ( "Delete Event " 5c txtMensuration 5c "?", 

"Delete Event") 

If iResp = vbYes Then 

With datMenEvent s . Recordset 
. Delete 
. MoveNext 
If .EOF Then 

. Move Previous 
If .BOF Then 

MsgBox "The recordset is empty.", 
vbinf ormation, "No Records" 

End If 
End If 
End With 
End If 

Else 

MsgBox "No records to delete.", vbExclamation, "Delete 
End If 

cmdDel_Click_Event : 

Exit Sub 

HandleDelErrors : 

Dim stMess As String 

stMess = "Cannot complete operation." 5c vbCrLf 5c vbCrLf 5c 
Err . Description 

MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 

End Sub 

Private Sub cmdSave_Click ( ) 

' save current record 

On Error GoTo HandleSaveErrors 

If cboAcquisition .List Index >= 0 And cboGISRS .List Index >= 
If Val ( txtCounter ) < 10 Then 

txtMensuration. Text = "MEOOOO" 5c txtCounter . Text 



vbYesNo, 



Event 



0 Then 
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Else 



If Val { txtCounter) < 100 Then 

txtMensuration.Text = "MEOOO" & txtCounter . Text 

Else 

If Val ( txtCounter ) < 1000 Then 

txtMensuration.Text = "MEOO" & txtCounter . Text 

Else 

If Val (txtCounter ) < 10000 Then 

txtMensuration.Text = "MEO" & txtCounter . Text 

Else 

txtMensuration.Text = "ME" & txtCounter . Text 
End If 
End If 
End If 
End If 

datMenEvents . Recordset . Update 

Else 

MsgBox "You must select an Acquisition Event and a GISRS 
Terminal before saving." _ 

, vbExc lama t ion, "Add Mensuration Event" 
datMenEvents . Recordset . CancelUpdate 
End If 

cboAcquisi t ion . Enabled = False 
cboPlatform. Enabled = False 
cboSensor . Enabled = False 
cboGISRS . Enabled = False 
cboPTW. Enabled = False 
txtTimeRqstSent . Enabled = False 
txtTimeRqstRcvd. Enabled = False 
txtTimeInfoSent . Enabled = False 
txtTimeInfoRcvd. Enabled = False 
cmdUpdate . Enabled = True 
cmdSave . Enabled = False 
cmdDel . Enabled = True 
cmdAdd. Caption = "&Add Event" 
mnuFile . Enabled = True 
datMenEvents . Enabled = True 
cmdAdd. SetFocus 



datMenEvents . Enabled = True 

cmdSave_Click__Exit : 

Exit Sub 

HandleSaveErrors : 

Dim stMess As String 
Select Case Err. Number 

Case 3022 'duplicate key field 

stMess = "Record already exists — could not save> ' " 
MsgBox stMess, vbExclamation , "Database Error" 

On Error GoTo 0 'turn off error trapping 
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Case 3058, 3315 'no entry in key field 

stMess = "Select Acquisition Event and GISRS Terminal 
before saving." 

MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

Case Else 

stMess = "Record could not be saved." & vbCrLf _ 

& Err -Description 

MsgBox stMess, vbExclamation, "Database Error" 
datMenEvents . Recordset . CancelUpdate 
Resume Next 
End Select 



End Sub 

Private Sub cmdUpdate_Click ( ) 

If cmdUpdate. Caption = "^Update" And _ 

datMenEvents . Recordset . RecordCount > 0 Then 

cmdUpdate. Caption = "Su&bmit" 
cboAcquis it ion . Enabled = True 
cboPlatform. Enabled = True 
cboSensor. Enabled = True 
cboGISRS . Enabled = True 
cboPTW. Enabled = True 
txtTimeRqstSent . Enabled = True 
txtTimeRqstRcvd . Enabled = True 
txtTimeInfoSent . Enabled = True 
txtTimeInfoRcvd . Enabled = True 
cmdAdd. Enabled = False 
cmdSave. Enabled = False 
cmdDel . Enabled = False 
mnuFile . Enabled = False 
datMenEvents . Enabled = False 
datMenEvents . Recordset . Edit 



Else 

If datMenEvents . Recordset . RecordCount > 0 Then 
datMenEvents .Recordset .Update 

cboAcquis it ion. Enabled = False 
cboPlatform. Enabled = False 
cboSensor . Enabled = False 
cboGISRS . Enabled = False 
cboPTW. Enabled = False 
txtTimeRqstSent . Enabled = False 
txtTimeRqstRcvd. Enabled = False 
txtTimeInfoSent .Enabled = False 
txtTimeInfoRcvd. Enabled = False 
cmdDel .Enabled = True 
cmdAdd. Enabled = True 
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cmdAdd . SetFocus 
cmdUpdate .Caption = "^Update 
mnuFile . Enabled = True 
datMenEvents . Enabled = True 



End If 
End If 

End Sub 

Private Sub datMenEvents_Reposition { ) 
SetMenEventsRecordMuinber 



End Sub 

Private Sub Form_Load() 

datMenEvents .DatabaseName = gstNewDatabase 

stSQLl = "Select Acquisition from Acquisition" 
stSQL2 = "Select SensorType from SensorType" 
stSQL3 = "Select Platform from Platform" 
stSQL4 = "Select GISRSTerminal from GISRSTerminal" 
stSQLS = "Select PTWTerminal from PTWTerminal" 



Set rsAcquisition = db . OpenRecordset ( stSQLl ) 

Set rsSensor = db. OpenRecordset (stSQL2 ) 

Set rsPlatform = db. OpenRecordset (stSQL3) 

Set rsGISRS = db.OpenRecordset (stSQL4) 

Set rsPTW = db.OpenRecordset (stSQLS) 

'fill cboAcquisition 
Do Until rsAcquisition . EOF 

cboAcquisition. AddI tern rsAcquisition ! Acquisition 
rsAcquisition . MoveNext 

Loop 

'fill cboSensor 
Do Until rsSensor. EOF 

cboSensor .AddI tern rsSensor! SensorType 
rsSensor .MoveNext 

Loop 

'fill cboPlatform 
Do Until rsPlatform. EOF 

cboPlatform. AddI tern rsPlatform! Platform 
rsPlat form. MoveNext 

Loop 

'fill cboGISRS 
Do Until rsGISRS. EOF 



158 



I 



cboGISRS . Additem rsGISRS i GISRSTerminal 
rsGISRS .MoveNext 

Loop 

'fill cboPTW 
Do Until rsPTW.EOF 

cboPTW. Additem rsPTW 1 PTWTerminal 
r s PTW . MoveNext 

Loop 

With datMenEvents 
. Refresh 

If Not .Recordset .EOF Then 
.Recordset .MoveLast 
.Recordset .MoveFirst 
End If 
End With 

SetMenEventsRecordNumber 



End Sub 

Private Sub SetMenEventsRecordNumber ( ) 

Dim iRecordCount As Integer 
Dim iCurrentRecord As Integer 

iRecordCount = datMenEvents . Recordset . RecordCount 
iCurrentRecord = datMenEvents . Recordset .AbsolutePosit ion + 1 



If datMenEvents . Recordset . EOF Then 

datMenEvents .Caption = "No more records" 

Else 



datMenEvents . Caption 
iCurrentRecord & _ 



"Mensuration Event Record 
" of " Sc iRecordCount 



End If 



Sc 



End Sub 

Private Sub Form_Unload (Cancel As Integer) 

f rmMa in . Enabled = True 
Unload Me 



End Sub 

Private Sub mnuFileBack_Click ( ) 

f rmMa in . Enabled = True 
Unload Me 



End Sub 
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Private Sub mnuFilePrint_Click ( ) 
f rmPrint . Show 

On Error GoTo mnuPrintErrors 

If bContinue = True Then 

With datMenEvents . Recordset 

If bWord = True Then 

Set WordApp = New Word .Application 
WordApp . Documents . Add 
Set Doc = WordApp .Act iveDocument 
Set Sel = WordApp . Selection 

Doc .Tables .Add Range : =Sel . Range, NumRows : = . RecordCount , 

NumColumns : =10 



Sel.TypeText Text := "Mensuration" 

Sel .MoveRight unit: =12 

Sel.TypeText Text := "Request Sent" 
Sel .MoveRight unit : =12 

Sel.TypeText Text := "Request Rcvd" 
Sel .MoveRight unit: =12 

Sel.TypeText Text :=" Info Sent" 

Sel .MoveRight unit : =12 

Sel.TypeText Text :=" Info Received" 
Sel .MoveRight unit : =12 

Sel .TypeText Text : = "Acquisition" 

Sel .MoveRight unit : =12 

Sel.TypeText Text :=" Sensor Type" 

Sel . MoveRight unit : =12 

Sel .TypeText Text : =" Platform" 

Sel .MoveRight unit: =12 

Sel.TypeText Text : = "GISRS " 

Sel .MoveRight unit : =12 

Sel .TypeText Text : = " PTW" 

Sel .MoveRight unit : =12 

Do Until .EOF 

Sel .TypeText Text : = ! Mensuration 
Sel .MoveRight unit :=12 
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'12=next cell 
'12=next cell 
'12=next cell 
'12=next cell 
'12=next cell 
'12=next cell 
'12=next cell 
'12=next cell 
'12=next cell 
'12=next cell 



' 12=next 



cell 

Sel . TypeText Text : = ! TimeReques tSent 

Sel .MoveRight unit: =12 '12=next 

cell 

Sel . TypeText Text : = ! TimeRequestReceived 

Sel .MoveRight unit: =12 '12=next 

cell 

Sel. TypeText Text : = ! Timeinf oSent 

Sel .MoveRight unit: =12 '12=next 

cell 

Sel . TypeText Text : = I Timeinf oReceived 

Sel .MoveRight unit: =12 ' 12=next 

cell 

Sel. TypeText Text := 'Acquisition 

Sel .MoveRight unit: =12 '12=next 

cell 

Sel. TypeText Text : = IMenSensorType 

Sel .MoveRight unit: =12 '12=next 

cell 

Sel . TypeText Text : = ! MenPlat f orm 

Sel .MoveRight unit: =12 '12=next 

cell 

Sel .TypeText Text : = IGISRSTerminal 

Sel .MoveRight unit: =12 '12=next 

cell 

Sel . TypeText Text : = I PTWTerminal 

Sel .MoveRight unit: =12 '12=next 

cell 



.MoveNext 



Loop 

WordApp .Visible = True 
Set WordApp = Nothing 



Else 

If bText = True Then 

Open App.Path & "\MenEvents.txt" For Output As #1 

Print #1, "Mensuration"; Chr(9); "Request Sent"; 
Chr(9); "Request Rcvd" ; Chr(9); _ 

"Info Sent"; Chr(9); " 
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Info Rcvd" ; 



Chr (9) ; _ 



Acquisition"; Chr(9); "Sensor Type 



Chr (9) ; _ 



"Platform"; Chr (9); "GISRS"; Chr (9) 
"PTW"; Chr (9) 



Do Until .EOF 

Print #1, IMensuration; Chr(9); _ 

! TimeRequestSent ; Chr ( 9 ) ; _ 
ITimeRequestReceived; Chr (9) ; 
ITimelnfoSent ; Chr (9); _ 

I Timeinf oReceived ; Chr ( 9 ) ; _ 

! AcqSensorType; Chr (9); _ 
’Acquisition; Chr (9); _ 

’ MenSensorType ; Chr ( 9 ) ; _ 

’ MenPlatf orm; Chr(9); _ 
’GISRSTerminal; Chr(9); 

’ PTWTerminal ; Chr ( 9 ) 



. MoveNext 

Loop 

Close #1 

End If 
End If 

. MoveFirst 

End With 

End If 

bContinue = False 
bWord = False 
bText = False 



mnuPrintErrors : 

Select Case Err. Number 
Case 94 

Sel.TypeText Text : = 
Resume Next 
End Select 



End Sub 

Private Sub txtAcquisition_Change ( ) 

'selects correct combo box listing 
Dim iindex As Integer 

Dim bFound As Boolean 

rsAcquisition. MoveFirst 
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If txtAcquisition <> "" Then 

Do Until iindex = rsAcquisition. RecordCount Or bFound 
If rsAcquisition 1 Acquisition = txtAcquisition Then 
cboAcquisit ion. Text = rsAcquisition ! Acquisition 
bFound = True 

Else 

rsAcquisition . MoveNext 
iindex = iindex + 1 
End If 



Loop 
End If 

End Sub 

Private Sub txtGISRS_Change ( ) 

'selects correct combo box listing 
Dim iindex As Integer 

Dim bFound As Boolean 

rsGISRS .MoveFirst 
If txtGISRS <> "" Then 

Do Until iindex = rsGISRS . RecordCount Or bFound 
If rsGISRS IGISRSTerminal = txtGISRS Then 
cboGISRS . Text = rsGISRS 1 GISRSTerminal 
bFound = True 

Else 

rsGISRS . MoveNext 
iindex = iindex + 1 
End If 



Loop 
End If 

End Sub 

Private Sub txtPlatf orm_Change ( ) 

'selects correct combo box listing 
Dim iindex As Integer 

Dim bFound As Boolean 

rsPlatform. MoveFirst 
If txtPlatform <> Then 

Do Until iindex = rsPlatform. RecordCount Or bFound 
If rsPlatform! Platform = txtPlatform Then 
cboPlatform.Text = rsPlatform! Platform 
bFound = True 

Else 

rsPlatform . MoveNext 
iindex = iindex + 1 
End If 



Loop 
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End If 



End Sub 

Private Sub txtPTW_Change ( ) 

'selects correct combo box listing 
Dim iindex As Integer 

Dim bFound As Boolean 

rsPTW . MoveFirs t 
If txtPTW <> "" Then 

Do Until iindex = rsPTW. RecordCount Or bFound 
If rsPTW! PTWTerminal = txtPTW Then 
cboPTW.Text = rsPTW ! PTWTerminal 
bFound = True 

Else 

rsPTW . MoveNext 
iindex = iindex + 1 
End If 



Loop 
End If 

End Sub 

Private Sub txtSensor_Change { ) 

'selects correct combo box listing 
Dim iindex As Integer 

Dim bFound As Boolean 

rsSensor . MoveFirs t 
If txtSensor <> " " Then 

Do Until iindex = rsSensor . RecordCount Or bFound 
If rsSensor ! SensorType = txtSensor Then 
cboSensor .Text = rsSensor ! SensorType 
bFound = True 

Else 

rsSensor . MoveNext 
iindex = iindex + 1 
End If 



Loop 
End If 

End Sub 



'Module : f rmNomEvents . f rm 

'Description: Allows user to access the nomination event 

' records for addition, deletion, and 

' modification. 
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'Programmer: Kevin Colon 



Option Explicit 

Dim rsAcquisition 
Dim rsMensuration 
Dim rsGISRS 
Dim stSQLl 
Dim stSQL2 
Dim stSQL3 
Private WordApp 
Private Doc 
Private Sel 



As Recordset 
As Recordset 
As Recordset 
As String 
As String 
As String 

As Word. Application 
As Word. Document 
As Word. Selection 



Private Sub cboAcquisition_Change ( ) 

If cboAcqui sit ion . List Index >= 0 Then 

txtAcquisition = cboAcquisition . Text 
End If 

End Sub 

Private Sub cboGISRS_Change ( ) 

If cboGISRS .Listindex >= 0 Then 
txtGISRS = CboGISRS. Text 
End If 

End Sub 

Private Sub cboMensuration_Change ( ) 

If cboMensuration. List Index >= 0 Then 

txtMensuration = cboMensuration . Text 
End If 

End Sub 

Private Sub cmdAdd_Click ( ) 

On Error GoTo HandleAddErrors 

If cmdAdd. Caption = "ScAdd Event" Then 

datNomination . Recordset . AddNew 
cboAcquisition. Enabled = True 
cboMensuration. Enabled = True 
cboGISRS . Enabled = True 
cboAcquisition . Listindex = -1 
cboMensuration. Listindex = -1 
cboGISRS . Listindex = -1 
txtTimeSent . Enabled = True 
txtTimeRcvd. Enabled = True 
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txtAssess . Enabled = True 
txtTLE. Enabled = True 
cmdUpdate . Enabled = False 
cmdSave . Enabled = True 
cmdDel . Enabled = False 
cmdAdd . Caption = "ScCancel” 
mnuFile . Enabled = False 
da tNomination. Enabled = False 



Else 



datNomination . Recordset . CancelUpdate 

cboAcquisition . Enabled = False 

cboMensuration . Enabled = False 

cboGISRS . Enabled = False 

txtTimeSent . Enabled = False 

txtTimeRcvd. Enabled = False 

txtAssess . Enabled = False 

txtTLE . Enabled = False 

cmdUpdate . Enabled = True 

cmdSave . Enabled = False 

cmdDel . Enabled = True 

cmdAdd . Caption = "ScAdd Event" 

mnuFile . Enabled = True 

datNomination. Enabled = True 

cmdAdd . SetFocus 

End If 

cmdAdd_Click_Exit : 

Exit Sub 

HandleAddErrors : 

Dim stMess As String 

stMess = "Cannot complete operation. " Sc vbCrLf Sc vbCrLf & 

Err . Description 

MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

End Sub 

Private Sub cmdDel_Click ( ) 

Dim iResp As Integer 

On Error GoTo HandleDelErrors 

If datNomination. Recordset . RecordCount > 0 Then 

iResp = MsgBox ( "Delete Event " & txtNomination & "?", vbYesNo, 

"Delete Event") 

If iResp = vbYes Then 

With datNomination. Recordset 
. Delete 
. MoveNext 
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If .EOF Then 

. MovePrevious 
If .BOF Then 

MsgBox "The recordset is empty.", 
vbln format ion, "No Records" 

End If 
End If 
End With 
End If 

Else 

MsgBox "No records to delete.", vbExclamation, "Delete Event" 
End If 

cmdDel_Click: 

Exit Sub 

HandleDelErrors : 

Dim stMess As String 

stMess = "Cannot complete operation. " Sc vbCrLf & vbCrLf Sc 
Err . Description 

MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 



End Sub 

Private Sub cmdSave_Click ( ) 

' save current record 

On Error GoTo HandleSaveErrors 

If cboAcquisition.ListIndex >= 0 And cboGISRS . Listindex >= 0 Then 
If Val ( txtCounter) < 10 Then 

txtNominat ion. Text = "NEOOOO" Sc txtCounter . Text 

Else 

If Val (txtCounter) < 100 Then 

txtNominat ion . Text = "NEOOO" Sc txtCounter . Text 

Else 

If Val ( txtCounter) < 1000 Then 

txtNominat ion. Text = "NEOO" Sc txtCounter .Text 

Else 

If Val { txtCounter) < 10000 Then 

txtNominat ion. Text = "NEO" Sc txtCounter .Text 

Else 

txtNominat ion .Text = "NE" Sc txtCounter . Text 
End If 
End If 
End If 
End If 

da tNomination . Recordset . Update 

Else 

MsgBox "You must select an Acquisition Event and a GISRS 
Terminal before saving." _ 
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, vbExc lama t ion, "Add Nomination Event 
datNomination . Recordset . CancelUpdate 
End If 

cboAcquisition. Enabled = False 
cboMensurat ion. Enabled = False 
cboGISRS. Enabled = False 
txtTLE . Enabled = False 
txtTimeSent . Enabled = False 
txtTimeRcvd. Enabled = False 
txtAssess . Enabled = False 
cmdUpdate . Enabled = True 
cmdSave . Enabled = False 
cmdDel . Enabled = True 
cmdAdd. Caption = "&Add Event" 
mnuFile . Enabled = True 
datNomination. Enabled = True 
cmdAdd . SetFocus 



datNomination. Enabled = True 

cmdSave_Click_Exit : 

Exit Sub 

HandleSaveErrors : 

Dim stMess As String 
Select Case Err. Number 

Case 3022 'duplicate key field 

stMess = "Record already exists -- could not save> ' " 
MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

Case 3058, 3315 'no entry in key field 

stMess = "Select Acquisition Event and GISRS Terminal 
before saving." 

MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

Case Else 

stMess = "Record could not be saved. " & vbCrLf __ 

& Err .Description 

MsgBox stMess, vbExclamation, "Database Error" 
datNomination . Recordset .CancelUpdate 
Resume Next 
End Select 

End Sub 

Private Sub cmdUpdate_Click ( ) 

If cmdUpdate .Caption = "^Update" And _ 

datNomination. Recordset .RecordCount > 0 Then 

cmdUpdate .Caption = "Su&bmit" 
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cboAcquisi t ion . Enabled = True 
cboMensurat ion . Enabled = True 
cboGISRS. Enabled = True 
txtTimeSent . Enabled = True 
txtTimeRcvd. Enabled = True 
txtTLE. Enabled = True 
txtAssess . Enabled = True 
cmdAdd. Enabled = False 
cmdSave -Enabled = False 
cmdDel . Enabled = False 
mnuFile. Enabled = False 
datNominat ion . Enabled = False 
datNominat ion . Recordset . Edit 



Else 

If datNomination . Recordset . RecordCount > 0 Then 
datNominat ion. Recordset .Update 

cboAcquisition. Enabled = False 
cboMensurat ion. Enabled = False 
CboGISRS. Enabled = False 
txtTLE. Enabled = False 
txtTimeSent . Enabled = False 
txtTimeRcvd. Enabled = False 
txtAssess . Enabled = False 
cmdDel . Enabled = True 
cmdAdd. Enabled = True 
cmdAdd. SetFocus 
cmdUpdate . Caption = "ScUpdate" 
mnuFile . Enabled = True 
datNomination. Enabled = True 



End If 
End If 

End Sub 

Private Sub datNominat ion_Reposit ion ( ) 
SetNominationRecordNumber 
End Sub 

Private Sub Form_Load() 

datNomination.DatabaseName = gstNewDatabase 

stSQLl = "Select Acquisition from Acquisition" 
stSQL2 = "Select Mensuration from Mensuration" 
stSQL3 = "Select GISRSTerminal from GISRSTerminal " 



Set rsAcquisition = db . OpenRecordset { stSQLl ) 
Set rsMensuration = db. OpenRecordset { stSQL2 ) 
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Set rsGISRS = db . OpenRecordset ( stSQL3 ) 

' fill cboAcquisition 

Do Until rsAcquisition.EOF 

cboAcquisition. Additem rsAcquisit ion 1 Acquisition 
rsAcquisit ion . MoveNext 

Loop 

' fill cboMensuration 

Do Until rsMensuration.EOF 

cboMensuration .Additem rsMensurat ion ! Mensuration 
rsMensurat ion . MoveNext 

Loop 

'fill cboGISRS 

Do Until rsGISRS. EOF 

cboGISRS . Additem rsGISRS ! GISRSTerminal 
rsGISRS -MoveNext 

Loop 

With datNomination 
. Refresh 

If Not .Recordset . EOF Then 
.Recordset .MoveLast 
. Recordset . MoveFirst 
End If 

End With 

SetNominationRecordNumber 



End Sub 

Private Sub SetNominationRecordNumber ( ) 



Dim iRecordCount As Integer 
Dim iCurrentRecord As Integer 



iRecordCount = datNomination . Recordset . RecordCount 
iCurrentRecord = datNomination .Recordset .AbsolutePosit ion + 1 



If datNomination. Recordset .EOF Then 

datNomination. Caption = "No more records" 

Else 

datNomination .Caption = "Nomination Event Record 
iCurrentRecord & _ 

" of " Sc iRecordCount 

End If 



End Sub 

Private Sub Form„Unload (Cancel As Integer) 



f rmMa in . Enabled = True 
Unload Me 
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End Sub 



Private Sub xnnuFileBack_Click ( ) 

frmMain. Enabled = True 
Unload Me 

End Sub 

Private Sub mnuFilePrint__Click ( ) 
f nnPrint . Show 

On Error GoTo mnuPrintErrors 

If bContinue = True Then 

With da tNomination . Recordset 

If bWord = True Then 

Set WordApp = New Word. Application 
WordApp . Documents . Add 
Set Doc = WordApp. Ac tiveDociament 
Set Sel = WordApp . Selection 

Doc . Tables . Add Range : =Sel . Range , NumRows : = . RecordCount , 

NiimColumns : = 8 



Sel.TypeText Text : ="Nominat ion" 

Sel .MoveRight unit: =12 '12=next cell 

Sel.TypeText Text : ="Nominat ion Sent" 

Sel .MoveRight unit: =12 '12=next cell 



Sel.TypeText Text : ="Nomination Rcvd" 

Sel .MoveRight unit: =12 '12=next cell 

Sel.TypeText Text : ="Acquisition" 

Sel .MoveRight unit: =12 ' 12=next cell 



Sel.TypeText Text := "Mensuration" 

Sel .MoveRight unit: =12 '12=next cell 



Sel.TypeText Text : ="GISRS" 

Sel .MoveRight unit: =12 '12=next cell 

Sel.TypeText Text :=" Assessment " 

Sel .MoveRight unit: =12 '12=next cell 



Sel.TypeText Text :=" Target Location Error" 

Sel .MoveRight unit: =12 '12=next cell 



Do Until .EOF 
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cell 



Sel .TypeText Text : = ! Nomination 
Sel .MoveRight unit: =12 



' 12=next 



Sel. TypeText Text : = I NomTimeSent 

Sel .MoveRight unit: =12 '12=next 

cell 

Sel . TypeText Text : = ! NomTimeRcvd 

Sel .MoveRight unit: =12 '12=next 

cell 

Sel. TypeText Text :=! Acquisition 

Sel .MoveRight unit: =12 '12=next 

cell 



Sel . TypeText Text : = 1 Mensuration 

Sel .MoveRight unit: =12 '12=next 

cell 



Sel . TypeText Text : = ! GISRSTerminal 

Sel .MoveRight unit: =12 ' 12=next 

cell 



Sel .TypeText Text : = ‘Assessment 

Sel .MoveRight unit: =12 '12=next 

cell 



Sel . TypeText Text : = ! TargetLocationError 

Sel .MoveRight unit: =12 '12=next 

cell 



. MoveNext 



Loop 

WordApp .Visible = True 
Set WordApp = Nothing 



Else 

If bText = True Then 

Open App.Path & "\NomEvents.txt" For Output As #1 

Print #1, "Nomination"; Chr(9); "Nomination Sent" 
Chr(9) ; "Nomination Rcvd" ; Chr(9); _ 

"Acquisition"; Chr ( 9 ) ; "Mensuration"; 

Chr ( 9 ) ; 

"GISRTerminal" ; Chr (9) ; "Assessment"; 

Chr (9); 

"TargetLocationError" ; Chr ( 9 ) 

Do Until .EOF 
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Print #1, ’Nomination; Chr(9); _ 

! NomTimeSent ; Chr ( 9 ) ; _ 

I NomTimeRcvd ; Chr ( 9 ) ; _ 
’Acquisition; Chr(9); _ 
’Mensuration; Chr(9); _ 
’GISRSTeminal; Chr(9); 
’Assessment; Chr(9); _ 

’ TargetLocationError; Chr (9) 



.MoveNext 

Loop 

Close #1 

End ’If 
End If 

. MoveFirst 

End With 

End If 

bContinue = False 
bWord = False 
bText = False 



mnuPrintErrors : 

Select Case Err. Number 
Case 94 

Sel . TypeText Text : = " " 
Resume Next 
End Select 



End Sub 

Private Sub txtAcquisition_Change ( ) 

'selects correct combo box listing 
Dim iindex As Integer 

Dim bFound As Boolean 

rsAcquisi tion . MoveFirst 
If txtAcquisit ion <> " " Then 

Do Until iindex = rsAcquisition . RecordCount Or bFound 
If rsAcquisition ’Acquisition = txtAcquisition Then 
cboAcqui sit ion . Text = rsAcquisition ’Acquisition 
bFound = True 

Else 

rsAcquisition .MoveNext 
iindex = iindex + 1 
End If 
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Loop 
End If 

End Sub 

Private Sub txtGISRS_Change { ) 

'selects correct combo box listing 
Dim iindex As Integer 

Dim bFound As Boolean 

rsGISRS .MoveFirst 
If txtGISRS <> "" Then 

Do Until iindex = rsGISRS . RecordCount Or bFound 
If rsGISRS IGISRSTerminal = txtGISRS Then 
cboGISRS . Text = rsGISRS ! GISRSTerminal 
bFound = True 

Else 

rsGISRS . MoveNext 
iindex = iindex + 1 
End If 



Loop 
End If 

End Sub 

Private Sub txtMensuration_Change ( ) 

'selects correct combo box listing 
Dim iindex As Integer 

Dim bFound As Boolean 

rsMensuration . MoveFirst 
If txtMensuration <> " " Then 

Do Until iindex = rsMensuration. RecordCount Or bFound 
If rsMensuration ! Mensuration = txtMensuration Then 
cboMensurat ion . Text = rsMensuration! Mensuration 
bFound = True 

Else 

rsMensuration . MoveNext 
iindex = iindex + 1 
End If 



Loop 
End If 

End Sub 



' Module : f rmObjectives . f rm 

'Description: Allows user to access the objectives 

' records for addition, deletion, and 
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' modification. 

'Programmer: Kevin Colon 



Option Explicit 

Private Sub cmdAdd_Click { ) 

On Error GoTo HandleAddErrors 

If cmdAdd. Caption = "&Add” Then 

datObjectives .Recordset .AddNew 
txtObjective . Enabled = True 
txtObjective . SetFocus 
txtDescript ion . Enabled = True 
cmdAdd. Caption = "ScCancel" 
cmdSave .Enabled = True 
cmdDel . Enabled = False 
cmdUpdate. Enabled = False 
mnuFile .Enabled = False 
datObjectives .Enabled = False 



Else 

datOb j ectives . Recordset . CancelUpdate 

txtObjective . Enabled = False 

txtDescript ion. Enabled = False 

cmdSave . Enabled = False 

cmdDel . Enabled = True 

cmdUpdate . Enabled = True 

mnuFile .Enabled = True 

cmdAdd . Caption = " ScAdd " 

cmdAdd . SetFocus 

datObjectives . Enabled = True 

End If 

cmdAdd_Click_Exit : 

Exit Sub 

HandleAddErrors : 

Dim stMess As String 

stMess = "Cannot complete operation. " & vbCrLf & vbCrLf 
Sc Err .Description 

MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 



End Sub 

Private Sub cmdDel_Click ( ) 

'delete the current record 
Dim iResp As Integer 

On Error GoTo HandleDelErrors 

If datObjectives .Recordset .RecordCount > 0 Then 
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iResp = MsgBox( "Delete Objective " & txtObjective . Text & "? 

vbYesNo, "Delete Objective") 

If iResp = vbYes Then 

With datObjectives .Recordset 

.Delete 'delete current record 

.MoveNext 'move to following record 

If .EOF Then 

.Move Pr e vi ou s 
I f . BOF Then 

MsgBox "The recordset is empty.", 

vbinf ormation, "No Records" 

End If 
End If 
End With 
End If 

Else ' ... 

MsgBox "No records to delete.", vbExclamation _ 

, "Delete Objective" 



End If 

cmdDel_Click_Exit : 

Exit Sub 

HandleDelErrors: 

Dim stMsg As String 

stMsg = "Cannot complete operation." & vbCrLf & vbCrLf 
Sc Err .Description 

MsgBox stMsg, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 



End Sub 

Private Sub cmdSave_Click ( ) 

' save the current record 
Dim iResp As Integer 



Then 



On Error GoTo HandleSaveErrors 
If txtObjective <> " " And txtDescription <> 
txtObjective = UCase (txtObjective) 
iResp = MsgBoxC'Do you want to add " & txtObjective & _ 

" to the database?", vbYesNo + vbQuestion, _ 
"Add Objective") 

If iResp = vbYes Then 

datOb j ectives . Recordset . Update 
End If 



MsgBox "You must enter an Objective and a description before 

saving.", vbExclamation _ 

, "Add Objective" 

datObj ectives . Recordset . CancelUpdate 
End If 
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txtObjective . Enabled = False 
txtDescription . Enabled = False 
cmdSave . Enabled = False 
cmdDel . Enabled = True 
datObjectives . Enabled = True 
mnuFile . Enabled = True 
cmdAdd. Caption = "&Add" 
cmdAdd . S e t Fo cu s 
cmdUpdate . Enabled = True 



cmdSave_Click_Exit : 

Exit Sub 

HandleSaveErrors : 

Dim stMess As String 
Select Case Err. Number 

Case 3022 'duplicate key field 

stMess = "Record already exists -- could not save>'" 
MsgBox stMess, vbExclamat ion, "Database Error" 

On Error GoTo 0 'turn off error trapping 

Case 3058, 3315 'no entry in key field 

stMess = "Enter a Objective name before saving." 
MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

Case Else 

stMess = "Record could not be saved." & vbCrLf _ 

Sc Err .Description 

MsgBox stMess, vbExclamation, "Database Error" 
datOb j ec t ives . Recordset . CancelUpdate 
Resiame Next 
End Select 

End Sub 

Private Sub cmdUpdate_Click ( ) 

If cmdUpdate. Caption = "^Update" And _ 

datObjectives . Recordset . RecordCount > 0 Then 

cmdUpdate. Caption = "SuScbmit" 
txtObjective .Enabled = True 
txtDescription . Enabled = True 
cmdDel . Enabled = False 
mnuFile. Enabled = False 
txtObjective . Set Focus 
cmdAdd. Enabled = False 
datObjectives . Enabled = False 
datObjectives .Recordset .Edit 

Else 

If datObjectives .Recordset .RecordCount > 0 Then 
datObjectives . Recordset .Update 

txtObjective . Enabled = False 
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txtDescript ion. Enabled = False 
cmdDel .Enabled = True 
mnuFile . Enabled = True 
cmdAdd. Enabled = True 
cmdAdd . SetFocus 
cmdUpdate .Caption = "ScUpdate" 
datObjectives .Enabled = True 
End If 
End If 

End Sub 

Private Sub datObjectives_Reposit ion ( ) 

Set Ob j ec t iveRecordNumber 

End Sub 

Private Sub Form_Load ( ) 

datObjectives .DatabaseName = gstNewDatabase 

With datObjectives 
.Refresh 

If Not .Recordset .EOF Then 
. Recordset . MoveLas t 
.Recordset .MoveFirst 
End If 
End With 

SetObject iveRecordNumber 



End Sub 

Private Sub Form_Unload (Cancel As Integer) 
f innMain. Show 
frmMa in. Enabled = True 
Unload Me 

End Sub 

Private Sub mnuFileBack_Click ( ) 

frmMa in. Enabled = True 
Unload Me 

End Sub 

Private Sub mnuFileSearch_Click ( ) 

datObjectives. Recordset .FindFirst "[Description] = _ 

InputBox ( "Enter the Objective", "Objective Search") & 



If datObjectives . Recordset . NoMatch Then 

MsgBox "Objective was not found.", vbOKOnly, "Objective Search" 
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'go to first record 



datObj actives . Recordset . MoveFirs t 
End If 

End Sub 

Private Sub SetObjectiveRecordNumber ( ) 

Dim iRecordCount As Integer 
Dim iCurrentRecord As Integer 

iRecordCount = datObj actives . Recordset . RecordCount 
iCurrentRecord = datObjectives .Recordset .AbsolutePosition + 1 
If datObj actives . Recordset . EOF Then 

datObjectives .Caption = "No more records" 

Else 

datObjectives .Caption = "Objective " & iCurrentRecord & _ 

" of " & iRecordCount 

End If 
End Sub 



/*★★*■*•★****■*•***★**★***★★***■★★★★★★**•*■***★*****★*★★★*★★★★★***★★★ 
'Module : f rmPlatf orms , f rm 

'Description: Allows user to access the platform 

' records for addition, deletion, and 

' modification. 

'Programmer: Kevin Colon 

• ★★★★★★★★★★★★★★★★★★★★★★★★★★★★★******************^*******-*-****** 



Option Explicit 

Private Sub cboPlatType_Click { ) 

If cboPlatType. List Index >= 0 Then 
txtPlatTypeld = cboPlatType. Text 

End If 

End Sub 

Private Sub cmdAddPlat_Click ( ) 

On Error GoTo HandleAddPlatErrors 

If cmdAddPlat . Caption = "&Add Platform" Then 

datPlat forms .Recordset . AddNew 
CboPlatType . Enabled = True 
cboPlatType . List Index = 0 
txtPlat form. Enabled = True 
txtPlatName . Enabled = True 
txtCommander .Enabled = True 
txt Specialty .Enabled = True 
txtLocat ion. Enabled = True 
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txtLogger . Enabled - True 

txtPlatTypeld. Enabled = True 
cmdSavePlat . Enabled = True 
cmdDelPlat. Enabled = False 
cmdUpdate . Enabled = False 
mnuFile. Enabled = False 
cboPlatType . SetFocus 
cmdAddPlat. Caption = "ScCancel" 
datPlat forms. Enabled = False 

datPlatf orms . Recordset . CancelUpdate 

CboPlatType. Enabled = False 
txtPlatform. Enabled = False 
txtPlatName. Enabled = False 
txtCommander . Enabled = False 
txtSpecialty. Enabled = False 
txtLocation. Enabled = False 
txtLogger . Enabled = False 
txtPlatTypeld. Enabled = False 
cmdSavePlat . Enabled = False 
cmdDelPlat. Enabled = True 
cmdUpdate. Enabled = True 
mnuFile. Enabled = True 

cmdAddPlat. Caption = "ScAdd Platform 
cmdAddPlat . SetFocus 

datPlatf orms . Enabled = True 



End If 

cmdAddPlat_Click_Exit : 

Exit Sub 



Sc vbCrLf Sc 



HandleAddPlatErrors : 

Dim stMess As String 

stMess = "Cannot complete operation. 

Sc Err .Description 
MsgBox stMess, vbExc lama t ion, "Database Error 
on Error GoTo 0 'turn off error trapping 



End Sub 

Private Sub FillPlatTypeCombo { ) 

Dim iCount As Integer 
'fill the PlatType combo box 
cboPlat'Type . Clear 

With datPlatType 

.Refresh 'open database 

iCount = . Recordset . RecordCount 



vbCrLf 
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'fill the list 
Do Until . Recordset . EOF 

If .Recordset ! Plat formType <> "" Then 

cboPlatType . Addltem . Recordset ! PlatformType 

End If 

. Recordset . MoveNext 

Loop 
End With 

End Sub 

Private Sub cmdDelPlat_Click { ) 

'delete the current record 
Dim iResp As Integer 

On Error GoTo HandleDel Plat Errors 

If datPlatforms.Recordset.RecordCount > 0 Then 

iResp = MsgBox { "Delete Platform " & txtPlatform & vbYesNo, 

"Delete Platform" ) 

If iResp = vbYes Then 

With datPlat forms .Recordset 

.Delete 'delete current record 

.MoveNext 'move to following record 

If .EOF Then 

. MovePrevious 
If .BOF Then 

MsgBox "The recordset is empty.", 
vbinf ormation, "No Records" 

End If 
End If 
End With 
End If 

Else 

MsgBox "No records to delete.", vbExclamation _ 

, "Delete Event" 



End If 

cmdDelPlat_Click_Exit : 

Exit Sub 

HandleDelPlatErrors : 

Dim stMsg As String 

stMsg = "Cannot complete operation." & vbCrLf & vbCrLf _ 
Sc Err .Description 

MsgBox stMsg, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

End Sub 

Private Sub cmdSavePlat_Click { ) 
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' save the current record 



On Error GoTo HandleSavePlat f ormErrors 
If cboPlatType .List Index >= 0 Then 

If txtPlatform <> ” " And txtPlatName <> "" Then 
dat Plat forms . Recordset .Update 

Else 



saving . ” 



MsgBox "You must enter a Platform name and id before 

, vbExclamation, "Add Platform" 
dat Plat forms .Recordset .CancelUpdate 



End If 



Else 

MsgBox "You must select a Platform Type before saving." 

, vbExclamation, "Add Platform" 
datPlat forms . Recordset .CancelUpdate 

End If 



CboPlatType . Enabled = False 
txtPlatform. Enabled = False 
txtPlatName . Enabled = False 
txtCommander . Enabled = False 
txtSpecialty. Enabled = False 
txtLocat ion. Enabled = False 
txtLogger .Enabled = False 
txtPlatTypeld. Enabled = False 
cmdSavePlat . Enabled = False 
cmdDel Pi at . Enabled = True 
cmdUpdate . Enabled = True 
mnuFile . Enabled = True 
cmdAddPlat .Caption = "&Add Platform" 
cmdAddPlat . SetFocus 



datPlatforms . Enabled = True 

cmdSavePlat_Click_Exit : 

Exit Sub 



HandleSavePlat f ormErrors : 

Dim stMess As String 
Select Case Err. Number 

Case 3022 'duplicate key field 

stMess = "Record already exists -- could not save>'" 
MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

Case 3058, 3315 'no entry in key field 

stMess = "Select a platform type before saving." 
MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

Case Else 

stMess = "Record could not be saved." & vbCrLf _ 

Sc Err . Description 

MsgBox stMess, vbExclamation, "Database Error" 
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datPlat forms . Recordset . CancelUpdate 
Resume Next 
End Select 

End Sub 

Private Sub cmdUpdate_Click ( ) 

If cmdUpdate .Caption = "^Update" And _ 

datPlatf orms. Recordset .RecordCount > 0 Then 

cmdUpdate . Caption = " Su&bmit " 
cboPlatType . Enabled = True 
txtPlatform. Enabled = True 
txtPlatf orm. SetFocus 
txtPlatName . Enabled = True 
txtCommander . Enabled = True 
txtSpecialty. Enabled = True 
txtLocation . Enabled = True 
txtLogger. Enabled = True 
txtPlatTypeld. Enabled = True 
cmdDelPlat . Enabled = False 
cmdAddPlat . Enabled = False 
mnuFile . Enabled = False 
datPlatf orms . Enabled = False 
datPlatf orms . Recordset . Edit 



Else 

If datPlatf orms. Recordset. RecordCount > 0 Then 
datPlatf orms .Recordset .Update 

CboPlatType. Enabled = False 
txtPlatform. Enabled = False 
txtPlatName . Enabled = False 
txtCommander . Enabled = False 
txtSpecialty . Enabled = False 
txtLocation. Enabled = False 
txtLogger . Enabled = False 
txtPlatTypeld. Enabled = False 
cmdDelPlat . Enabled = True 
mnuFile . Enabled = True 
cmdAddPlat . Enabled = True 
cmdAddPlat . SetFocus 
cmdUpdate .Caption = "ScUpdate" 
datPlatf orms .Enabled = True 
End If 
End If 

End Sub 

Private Sub datPlatf orms_Reposition ( ) 

Set Plat formRecordNumber 

End Sub 
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Private Sub Form_Load() 

datPlatf orms .DatabaseName = gstNewDatabase 
datPlatType . DatabaseName = gstNewDatabase 

Fi 1 1 PlatTypeCombo 

With datPlatforms 
. Refresh 

If Not . Recordset . EOF Then 
. Recordset .MoveLast 
. Recordset . MoveFirst 
End If 
End With 

datPlatType . Refresh 
datPlatType . Recordset .MoveFirst 

S e t P 1 a t f ormRe c or dNumbe r 

End Sub 

Private Sub SetPlat formRecordNumber ( ) 

Dim iRecordCount As Integer 
Dim iCurrentRecord As Integer 

iRecordCount = datPlatf orms . Recordset . RecordCount 
iCurrentRecord = datPlatf orms . Recordset .AbsolutePosition + 1 
If datPlatforms . Recordset . EOF Then 

dat Plat foinns . Caption = "No more records" 

Else 

datPlatforms . Caption = "Platform Record " & iCurrentRecord & 

" of " & iRecordCount 

End If 
End Sub 



Private Sub mnuFileBack_Click ( ) 

frmMain. Show 

frmMain . Enabled = True 

Unload Me 

End Sub 



Private Sub mnuFileSearch_Click ( ) 



& 



datPlatf orms . Recordset . FindFirst " [Platformid] = _ 

InputBox ( "Enter the Platform Id", "Platform Id Search") 

n / II 



If datPlatf orms . Recordset . NoMatch Then 

MsgBox "Platform Id was not found.", vbOKOnly, "Platform Id 

Search" 

datPlatforms .Recordset .MoveFirst 'go to first record 
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End If 



End Sub 

Private Sub txtPlatTypeId_Change ( ) 

'selects correct combo box listing 
Dim iindex As Integer 
Dim bFound As Boolean 

datPlatType . Recordset .MoveFirst 
If txtPlatTypeld <> "" Then 

Do Until iindex = datPlatType . Recordset , RecordCount Or bFound 
If datPlatType . Recordset 1 PlatformType = txtPlatTypeld Then 
cboPlatType.Text = datPlatType . Recordset ! PlatformType 
bFound = True 

Else 

datPlatType . Recordset . MoveNext 
iindex = iindex = 1 

End If 

Loop 

Else 

cboPlatType -List Index = -1 
End If 

End Sub 



'Module: f rmPlat f ormsTypes . f rm 

'Description: Allows user to access the platform types 

' records for addition, deletion, and 

' modification. 

'Programmer: Kevin Colon 

1 ★★★★★★★★★★★★★★★•*■★★★•*■★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★*■*★★★★★ 



Option Explicit 

Private Sub cmdAdd_Click ( ) 

On Error GoTo HandleAddErrors 

If cmdAdd. Caption = "ScAdd" Then 
datPlatTypes . Recordset . AddNew 
txtPlatformType . Enabled = True 
txtPlat f ormType . SetFocus 
txtDescription . Enabled = True 
cmdAdd. Caption = "ScCancel" 
cmdSave . Enabled = True 
cmdDel . Enabled = False 
cmdUpdate . Enabled = False 
mnuFile . Enabled = False 
datPlatTypes . Enabled = False 
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Else 



datPlatTypes . Recordset . CancelUpdate 

txtPlatformType. Enabled = False 

txtDescription. Enabled = False 

cmdSave . Enabled = False 

cmdDel . Enabled = True 

cmdUpdate. Enabled = True 

mnuFile . Enabled = True 

cmdAdd .Caption = " & Add ” 

cmdAdd . SetFocus 

datPlatTypes. Enabled = True 

End If 

cmdAdd_C 1 i ck_Exi t : 

Exit Sub 

HandleAddErrors : 

Dim stMess As String 

stMess = "Cannot complete operation. " & vbCrLf & vbCrLf _ 

& Err . Description 

MsgBox stMess, vb Exclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

End Sub 

Private Sub cmdDel_Click ( ) 

'delete the current record 
Dim iResp As Integer 

On Error GoTo HandleDelErrors 

If datPlatTypes . Recordset . RecordCount > 0 Then 

iResp = MsgBox ( "Delete Platform " & txtPlatformType .Text & "?" 

vbYesNo, "Delete Platform") 

If iResp = vbYes Then 

With datPlatTypes . Recordset 

.Delete 'delete current record 

.MoveNext 'move to following record 

If .EOF Then 

. MovePrevious 
If .BOF Then 

MsgBox "The recordset is empty.", 

vbinformation, "No Records" 

End If 
End If 
End With 
End If 

Else 

MsgBox "No records to delete.", vbExclamation _ 

, "Delete Platform" 



End If 

cmdDel_Click_Exit : 
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Exit Sub 



HandleDelErrors : 

Dim stMsg As String 

stMsg = "Cannot complete operation." & vbCrLf & vbCrLf _ 

Sc Err .Description 

MsgBox stMsg, vbExc lama t ion, "Database Error" 

On Error GoTo 0 'turn off error trapping 

End Sub 

Private Sub cmdSave_Click ( ) 

'save the current record 
Dim iResp As Integer 

On Error GoTo HandleSaveErrors 
If txtPlatformType.Text <> "" Then 

txtPlatformType .Text = UCase ( txt Plat formType .Text ) 
iResp = MsgBox("Do you want to add " & txtPlatformType.Text & 
" to the database?", vbYesNo + vbQuestion, _ 

"Add Platform") 

If iResp = vbYes Then 

datPlatTypes . Recordset . Update 
End If 



Else 

MsgBox "You must enter a Platform type before saving.", 
vb Exclamation _ 

, "Add Platform" 

datPlatTypes . Recordset . CancelUpdate 
End If 

txtPlatformType . Enabled = False 
txtDescript ion. Enabled = False 
cmdSave . Enabled = False 
cmdDel. Enabled = True 
datPlatTypes. Enabled = True 
mnuFile. Enabled = True 
cmdAdd. Caption = "&Add" 
cmdAdd . SetFocus 
cmdUpdate . Enabled = True 



cmdSave_Click_Exit : 

Exit Sub 

HandleSaveErrors : 

Dim stMess As String 
Select Case Err. Number 

Case 3022 'duplicate key field 

stMess = "Record already exists — could not save>'" 
MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 
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Case 3058, 3315 'no entry in key field 

stMess = "Enter a Platform type before saving. 
MsgBox stMess, vbExclamation , "Database Error" 
On Error GoTo 0 'turn off error trapping 

Case Else 

stMess = "Record could not be saved. " & vbCrLf 
Sc Err . Description 

MsgBox stMess, vbExclamation, "Database Error" 
datPlatTypes . Recordset . CancelUpdate 
Resume Next 
End Select 

End Sub 

Private Sub cmdUpdate_Click { ) 

If cmdUpdate . Caption = "ficUpdate" And _ 

datPlatTypes . Recordset . RecordCount > 0 Then 

cmdUpdate. Caption = "Su&bmit" 
txtPlatformType. Enabled = True 
txtDescription . Enabled = True 
cmdDel . Enabled = False 
mnuFile . Enabled = False 
txtPlatformType. SetFocus 
cmdAdd. Enabled = False 
datPlatTypes . Enabled = False 
datPlatTypes . Recordset . Edit 

Else 

If datPlatTypes . Recordset . RecordCount > 0 Then 
datPlatTypes . Recordset . Update 

txtPlatformType . Enabled = False 
txtDescription . Enabled = False 
cmdDel . Enabled = True 
mnuFile . Enabled = True 
cmdAdd. Enabled = True 
cmdAdd. SetFocus 
cmdUpdate . Caption = "&Update" 
datPlatTypes . Enabled = True 
End If 
End If 

End Sub 

Private Sub datPlattypes_Reposition ( ) 

Set Plat fontiRecordNumber 
End Sub 

Private Sub Form__Load() 

datPlatTypes . DatabaseName = gstNewDatabase 
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with datPlatTypes 
. Refresh 

If Not .Recordset .EOF Then 
. Recordset .MoveLast 
. Recordset . MoveFirs t 
End If 
End With 

SetPlatformRecordNumber 



End Sub 

Private Sub Form_Unload (Cancel As Integer) 

frmMa in. Enabled = True 
Unload Me 

End Sub 

Private Sub mnuFileBack_Click ( ) 

frmMa in. Enabled = True 
Unload Me 

End Sub 

Private Sub mnuFileSearch_Click ( ) 

datPlatTypes .Recordset .FindFirst " [PlatformType] = ' " & _ 

InputBox ( "Enter the Platform Type", "Platform Type 

Search") & 

If datPlatTypes . Recordset .NoMatch Then 

MsgBox "Platform Type was not found.", vbOKOnly, "Platform Type 

Search" 

datPlatTypes .Recordset .MoveFirs t 'go to first record 

End If 

End Sub 

Private Sub SetPlatformRecordNumber ( ) 

Dim iRecordCount As Integer 
Dim iCurrentRecord As Integer 

iRecordCount = datPlatTypes . Recordset . RecordCount 
iCurrentRecord = datPlatTypes . Recordset .AbsolutePosition + 1 
If datPlatTypes .Recordset . EOF Then 

datPlatTypes .Caption = "No more records" 

Else 

datPlatTypes. Caption = "Platform " & iCurrentRecord & _ 

" of " Sc iRecordCount 

End If 
End Sub 
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'Module : 

' Description: 

' Programmer : 



f rmPrint . f rm 

Allows user to choose to export report to Word 
or to a text file 
Kevin Colon 






Option Explicit 

Private Sub cmdCancel_Click { ) 

Unload Me 
End Sub 

Private Sub cmdOK_Click ( ) 

bContinue = True 
If Op ti on 1 .Value = True Then 
bWord = True 

Else 

If 0ption2 .Value = True Then 
bText = True 
End If 
End If 
Unload Me 

End Sub 



1 

'Module: frmPTW.frm 

'Description: Allows user to access the PTW terminal 

' records for addition, deletion, and 

' modification. 

'Programmer: Kevin Colon 



Option Explicit 

Dim rsPlatform As Recordset 

Dim stSQL As String 

Private Sub cboPlat formed ick ( ) 

If cboPlatf orm. Listindex >= 0 Then 

txtPlatform = cboPlat form. Text 

End If 

End Sub 
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I 



Private Sub cmdAdd_Click ( ) 

On Error GoTo HandleAddErrors 

If cmdAdd. Caption = ”&Add" Then 
dat PTW . Recordset . AddNew 
txtTerminal . Enabled = True 
txtTerminal . SetFocus 
txtFunction . Enabled = True 
cboPlatform. Enabled = True 
cmdAdd. Caption = "&Cancel" 
cmdSave. Enabled = True 
cmdDel . Enabled = False 
cmdUpdate . Enabled = False 
mnuFile . Enabled = False 
dat PTW. Enabled = False 



Else 

da t PTW . Recordset . CancelUpdate 
txtTerminal . Enabled = False 
txtFunction. Enabled = False 
cboPlatform. Enabled = False 
cmdSave . Enabled = False 
cmdDel .Enabled = True 
cmdUpdate .Enabled = True 
mnuFile .Enabled = True 
cmdAdd. Caption = "&Add" 
cmdAdd . SetFocus 
da t PTW . Enabled = True 

End If 

cmdAdd_Click_Exit : 

Exit Sub 

HandleAddErrors : 

Dim stMess As String 

stMess = "Cannot complete operation. " & vbCrLf & vbCrLf _ 

& Err .Description 

MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

End Sub 

Private Sub cmdDel_Click ( ) 

'delete the current record 
Dim iResp As Integer 

On Error GoTo HandleDelErrors 

If dat PTW. Recordset. RecordCount > 0 Then 

iResp = MsgBox ( "Delete Terminal " & txtTerminal . Text & "?", 

vbYesNo, "Delete Terminal") 

If iResp = vbYes Then 

With datPTW. Recordset 
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.Delete 'delete current record 

.MoveNext 'move to following record 

If .EOF Then 

. Move Previous 
I f . BOF Then 

MsgBox "The recordset is empty.", 
vbinf ormation, "No Records" 

End If 
End If 
End With 
End If 

Else 

MsgBox "No records to delete.", vbExclamation _ 

, "Delete Terminal" 



End If 

cmdDel_Click_Exit : 

Exit Sub 

HandleDelErrors : 

Dim stMsg As String 

stMsg = "Cannot complete operation." Sc vbCrLf Sc vbCrLf _ 

Sc Err .Description 

MsgBox stMsg, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

End Sub 

Private Sub cmdSave_Click ( ) 

' save the current record 
Dim iResp As Integer 

On Error GoTo HandleSaveErrors 
If txtTerminal .Text <> "" Then 

txtTerminal . Text = UCase ( txtTerminal . Text ) 

iResp = MsgBox("Do you want to add " Sc txtTerminal . Text Sc 
" to the database?", vbYesNo + vbQuestion, _ 
"Add Terminal") 

If iResp = vbYes Then 

datPTW. Recordset .Update 
End If 



Else 

MsgBox "You must enter a Terminal before saving.", 
vbExclamation _ 

, "Add Terminal" 
dat PTW . Recordset . CancelUpdate 
End If 

txtTerminal . Enabled = False 
txtFunct ion. Enabled = False 
cboPlatform. Enabled = False 
cmdSave . Enabled = False 
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cmdDel . Enabled = True 
da tPTW. Enabled = True 
mnuFile. Enabled = True 
cmdAdd. Caption = ''&Add" 
cmdAdd . SetFocus 
cmdUpdate. Enabled = True 



cmdSave_Click_Exit ; 
Exit Sub 



HandleSaveErrors : 

Dim stMess As String 
Select Case Err. Number 

Case 3022 'duplicate key field 

stMess = "Record already exists — could not save>' 
MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 



Case 3058, 3315 'no entry in key field 

stMess = "Enter a location before saving." 
MsgBox stMess, vbExclamation, "Database Error" 
On Error GoTo 0 'turn off error trapping 



Case Else 

stMess = "Record could not be saved." & vbCrLf 
Sc Err .Description 

MsgBox stMess, vbExclamation, "Database Error" 
dat PTW . Recordset . CancelUpda t e 
Resume Next 
End Select 



End Sub 

Private Sub cmdUpdate_Click ( ) 

If cmdUpdate .Caption = "ScUpdate" And _ 

dat PTW. Recordset . RecordCount > 0 Then 



cmdUpdate. Caption = "SuScbmit" 
txtTerminal . Enabled = True 
txt Function. Enabled = True 
cboPlatform. Enabled = True 
cmdDel . Enabled = False 
mnuFile . Enabled = False 
txtTerminal . SetFocus 
cmdAdd. Enabled = False 
dat PTW. Enabled = False 
da tPTW. Recordset . Edit 

Else 

If datPTW. Recordset .RecordCount > 0 Then 
txtTerminal = UCase ( txtTerminal ) 
dat PTW. Recordset .Update 

txtTerminal . Enabled = False 
txtFunct ion. Enabled = False 
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cboPlatform. Enabled = False 
cmdDel . Enabled = True 
mnuFile . Enabled = True 
cmdAdd . Enabled = True 
cmdAdd . SetFocus 
cmdUpdate. Caption = "ScUpdate" 
da tPTW. Enabled = True 
End If 
End If 

End Sub 

Private Sub datPTW_Reposition ( ) 
SetTerminalRecordNumber 

End Sub 

Private Sub FillPlatf ormCombo ( ) 

Dim iCount As Integer 
'fill the PlatType combo box 
cboPlatform. Clear 

With rsPlatform 

iCount = .RecordCount 

'fill the list 
Do Until .EOF 

If ! Platform <> "" Then 

cboPlatform. AddI tern ! Platform 

End If 
. MoveNext 

Loop 
End With 



End Sub 

Private Sub Form_Load() 

datPTW. DatabaseName = gstNewDatabase 

stSQL = "Select Platform from Platform" 

Set rsPlatform = db.OpenRecordset (stSQL) 

FillPlatf ormCombo 

With datPTW 
. Refresh 

If Not .Recordset . EOF Then 
. Recordset . MoveLas t 
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.Recordset .MoveFirst 
End If 
End With 

SetTerminalRecordNumber 
End Sub 

Private Sub Form__Un load (Cancel As Integer) 

frmMa in. Enabled = True 
Unload Me 

End Sub 

Private Sub mnuFileBack_Click ( ) 

frmMa in. Enabled = True 
Unload Me 

End Sub 

Private Sub mnuFileSearch_Click ( ) 

dat PTW. Recordset .FindFir St " [PTWTerminal] = ' " & _ 

InputBox( "Enter the PTW Terminal", "PTW Terminal 

Search") & "'" 

If datPTW. Recordset .NoMatch Then 

MsgBox "PTW Terminal was not found.", vbOKOnly, "PTW Terminal 

Search" 

dat PTW. Recordset .MoveFirst 'go to first record 

End If 

End Sub 

Private Sub SetTerminalRecordNumber ( ) 

Dim iRecordCount As Integer 
Dim iCurrentRecord As Integer 

iRecordCount = dat PTW. Recordset .RecordCount 
iCurrentRecord = dat PTW. Recordset .AbsolutePosit ion + 1 
If datPTW. Recordset . EOF Then 

dat PTW. Caption = "No more records" 

Else 

datPTW. Caption = "Terminal " & iCurrentRecord 8c _ 

" of " 8c iRecordCount 

End If 
End Sub 

Private Sub txtPlatf orm_Change ( ) 

'selects correct combo box listing 
Dim iindex As Integer 
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Dim bFound As Boolean 



rsPlat f orm . MoveFirst 
If txtPlatform <> "" Then 

Do Until iindex = rsPlatf orm. RecordCount Or bFound 
If rsPlatf orm! Platform = txtPlatform Then 
cboPlatf orm. Text = rs Plat form! Platform 
bFound = True 

Else 

rsPlatf orm. MoveNext 
iindex = iindex + 1 
End If 

Loop 

Else 

cboPlatform.ListIndex = -1 
End If 

End Sub 



' Module : f rmQueries . f rm 

'Description: Contains predefined queries that filter 

' acquisitions and targets based on a parameter 

' selected by the user. 

'Programmer: Kevin Colon 



Option Explicit 

Dim Index As Integer 

Private Sub cmdCancel__Click ( ) 

frmMain. Enabled = True 
Unload Me 

End Sub 

Private Sub cmdSubmit__Click ( ) 

f innQueryOutput . Show 
Me. Enabled = False 

End Sub 

Private Sub Form_Load() 

datPlatf orms . DatabaseName = gstNewDatabase 
datSensTypes .DatabaseName = gstNewDatabase 
datWeaponTypes . DatabaseName = gstNewDatabase 
da tThreatTypes .DatabaseName = gstNewDatabase 

'fill the Platform combo box 
FillPlatforms 
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'fill the Sensor combo box 
FillSensTypes 

'fill the Threat combo box 
Fi 1 iThrea tTypes 

'fill the Weapon combo box 
F i 1 IWeaponTypes 

End Sub 

Private Sub FillPlatf orms ( ) 

cboPlatf ormsl .Clear 
cboPlatf orms2 .Clear 

With datPlatforms 

•Refresh 'open database 

'fill the list 

Do Until . Recordset . EOF 'until no more records in recordset 

If .Recordset ! Platform <> "" Then 

cboPlatf ormsl . AddI tern . Recordset ! Platform 
cboPlatf orms2 . Additem . Recordset ! Platform 

End If 

. Recordset . MoveNext 

Loop 
End With 

End Sub 

Private Sub FillSensTypes ( ) 

cboSensTypesl .Clear 
cboSensTypes2 .Clear 

With datSensTypes 

.Refresh 'open database 

'fill the list 
Do Until . Recordset . EOF 

If . Recordset I SensorType <> "" Then 

cboSensTypesl .Additem .Recordset ’SensorType 
cboSensTypes2 .Additem . Recordset ! SensorType 

End If 

. Recordset . MoveNext 

Loop 
End With 

End Sub 

Private Sub Fi llThrea tTypes ( ) 
cboThreatTypes .Clear 
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With datThreatTypes 

.Refresh 'open database 

'fill the list 
Do Until . Recordset . EOF 

If .Recordset IThreatType <> " " Then 

cboThrea t Type s .AddI tern .Recordset IThreatType 
End If 

. Recordset . MoveNext 

Loop 
End With 

End Sub 

Private Sub FillWeaponTypes ( ) 

cboWeaponTypes . Clear 

With datWeaponTypes 

.Refresh 'open database 

'fill the list 
Do Until . Recordset . EOF 

If .Recordset !WeaponType <> "" Then 

cboWeaponTypes .AddI tern .Recordset IWeaponType 
End If 

. Recordset . MoveNext 

Loop 
End With 

End Sub 

Private Sub Form_Un load (Cancel As Integer) 
f rmMa in . Enabled = True 
Unload Me 

End Sub 

Private Sub Labell_Click ( ) 

optQuery(O) .Value = True 

End Sub 

Private Sub LabellO_Click ( ) 
optQuery (9) .Value = True 

End Sub 

Private Sub Labelll_Click ( ) 
optQuery ( 2 ) .Value = True 

End Sub 

Private Sub Label2_Click ( ) 



198 



optQuery(l) .Value = True 



End Sub 

Private Sub Label 3_C 1 ick ( ) 
optQuery (2 ) . Value = True 
End Sub 

Private Sub Label4__Click ( ) 

optQuery (3 ) .Value = True 
End Sub 

Private Sub Label 5_Click ( ) 

optQuery (4) .Value = True 
End Sub 

Private Sub Label6_Click { ) 

optQuery (5) .Value = True 
End Sub 

Private Sub Label7_Click ( ) 

optQuery (6 ) .Value = True 
End Sub 

Private Sub Labe 18_C1 ick ( ) 

optQue2ry(7) .Value = True 
End Sub 

Private Sub Labe 19_C1 ick ( ) 

optQuery (8) .Value = True 
End Sub 

Private Sub mnuFileBack_Click ( ) 

frmMa in. Enabled = True 
Unload Me 

End Sub 

Private Sub op tQuery_C lick (Index As Integer) 
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Select Case Index 

Case 0 

cboPlatformsl . Enabled = 
cboSensTypesl . Enabled = 
cboPlatforms2 . Enabled = 
cboSensTypes2 . Enabled = 
cboWeaponTypes . Enabled 
cboThr eat Types . Enabled 

Case 1 

cboPlatformsl .Enabled = 
cboSensTypesl .Enabled = 
cboPlatforms2 .Enabled = 
cboSensTypes2 . Enabled = 
cboWeaponTypes . Enabled 
cboThreatTypes . Enabled 

Case 2 

cboPlatformsl .Enabled = 
cboSensTypesl . Enabled = 
cboPlatf orms2 .Enabled = 
cboSensTypes2 . Enabled = 
cboWeaponTypes . Enabled 
cboThreatTypes . Enabled 

Case 3 

cboPlatformsl .Enabled = 
cboSensTypesl . Enabled = 
cboPlatf orms2 . Enabled = 
cboSensTypes2 . Enabled = 
cboWeaponTypes . Enabled 
cboThreatTypes . Enabled 

Case 4 

cboPlatf ormsl . Enabled = 
cboSensTypesl .Enabled = 
cboPlatf orms2 .Enabled = 
cboSensTypes2 . Enabled = 
cboWeaponTypes . Enabled 
cboThreatTypes . Enabled 

Case 5 

cboPlatf ormsl . Enabled = 
CboSensTypesl . Enabled = 
cboPlatforms2 .Enabled = 
cboSensTypes2 . Enabled = 
cboWeaponTypes . Enabled 
cboThreatTypes . Enabled 

Case 6 

cboPlatf ormsl . Enabled = 
cboSensTypesl .Enabled = 
cboPlatforms2 .Enabled = 
cboSensTypes2 . Enabled = 
cboWeaponTypes . Enabled 



True 
False 
False 
False 
= False 
- False 



False 
True 
False 
False 
= False 
= False 



False 
False 
True 
True 
= False 
= False 



False 
False 
False 
False 
= True 
= False 



False 
False 
False 
False 
= False 
= True 



False 
False 
False 
False 
= False 
= False 



False 
False 
False 
False 
= False 
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cboThreatTypes. Enabled = False 



Case 7 

cboPlatformsl . Enabled = False 
cboSensTypesl . Enabled = False 
cboPlatforms2 . Enabled = False 
cboSensTypes2 . Enabled = False 
cboWeaponTypes . Enabled = False 
cboThreatTypes. Enabled = False 

Case 8 

cboPlatf ormsl . Enabled = False 
cboSensTypesl .Enabled = False 
cboPlatforms2 .Enabled = False 
cboSensTypes2 .Enabled = False 
cboWeaponTypes. Enabled = False 
CboThreatTypes . Enabled = False 

Case 9 

cboPlatformsl .Enabled = False 
cboSensTypesl. Enabled = False 
cboPlatf orms2 . Enabled = False 
cboSensTypes2 . Enabled = False 
CboWeaponTypes . Enabled = False 
CboThreatTypes . Enabled = False 



End Select 



End Sub 



'Module: f rmQueryOutput . frm 

'Description; Displays the results from the query executed 

' from the Queries form (frmQueries) 

' Programmer : Kevin Colon 



Option Explicit 



Private 


Sub Form_Load ( ) 






Dim 


St SQL 


As 


String 


Dim 


stPrev 


As 


String 


Dim 


RS 


As 


Recordset 


Dim 


i Index 


As 


Integer 


Dim 


iRecord 


As 


Integer 


Dim 


rsNominations 


As 


Recordset 


Dim 


rsTargets 


As 


Recordset 


Dim 


stNoms 


As 


String 


Dim 


stTargets 


As 


String 


Dim 


bFound 


As 


Boolean 



datQuery .DatabaseName = gstNewDat abase 
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'Query by platform used for detection 
If frmQueries . optQuery ( 0 ) .Value = True Then 
St SQL = "Select * from Acquisition " & _ 

"Where Acquisition. AcqPlatform 
frmQueries . cboPlatf ormsl . Text & " ' " 

Set RS = db. OpenRecordset (stSQL) 

FlexOutput . Formatstring = "Record] Acquis t ion Event | Track 
Id I Platform I Time of Acquisition " 

Do Until RS.EOF 

iRecord = iRecord + 1 



Sc _ 

RS ! AcqTime 



FlexOutput .AddI tern iRecord Sc vbTab Sc RS ! Acquisition Sc vbTab 
RS!TrackId Sc vbTab Sc RS ! AcqPlatform Sc vbTab Sc 
RS . MoveNext 



Loop 
End If 



'Query by sensor used for detection 
If frmQueries . optQuery (1) .Value = True Then 

stSQL = "Select * from Acquisition, SensorType " Sc _ 

"Where Acquisition. AcqSensorType = ' " Sc _ 
frmQueries . cboSensTypesl .Text Sc _ 

"' And SensorType. SensorType = ' " Sc _ 
frmQueries . cboSensTypesl . Text Sc " ' " 

Set RS = db. OpenRecordset (stSQL) 

FlexOutput . Format String = "Record | Acquist ion Event | Track 
Id I Sensor Type | Time of Acquisition " 

Do Until RS.EOF 

iRecord = iRecord + 1 

FlexOutput .AddI tern iRecord Sc vbTab Sc RS ! Acquisition Sc vbTab 
Sc RSITrackId Sc vbTab _ 

Sc frmQueries . cboSensTypesl . Text Sc vbTab Sc RSI AcqTime 
RS .MoveNext 

Loop 
End If 



'Query by sensor and platform detection 
If frmQueries . optQuery ( 2 ) .Value = True Then 

stSQL = "Select * from Acquisition, SensorType " Sc 
"Where Acquisition. AcqSensorType = ' " Sc _ 
frmQueries . cboSensTypes2 . Text Sc _ 
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Sc 



" ' And Acquisition. AcqPlatform = ' " 
f rmQueries . cboPlatfonns2 .Text Sc _ 
And SensorType.SensorType = ' ” & 
f rmQueries . cboSensTypes2 . Text & " ' " 



Set RS = db.OpenRecordset (stSQL) 

FlexOutput . FormatString = "Record | Acquis t ion Event | Track 
Id I Plat form | Sensor Type | Time of Acquisition " 

Do Until RS.EOF 

iRecord = iRecord + 1 

FlexOutput .AddI tern iRecord & vbTab & RS 1 Acquisition & vbTab 
Sc RSiTrackId Sc vbTab _ 

Sc RS 1 AcqPlatform Sc vbTab Sc 
frmQueries . cboSensTypes2 .Text Sc vbTab Sc RSlAcqTime 
RS . MoveNext 

Loop 
End If 



'Query by weapon used 

If frmQueries.optQuery (3) .Value = True Then 

stSQL = "Select * from Target, WeaponType " Sc _ 

"Where Target .WeaponType = ' " Sc _ 
f rmQueries. cboWeaponTypes. Text Sc _ 

"' And WeaponType. Weapon Type = ' " Sc _ 
frmQueries . cboWeaponTypes . Text Sc " ' " 

Set RS = db. OpenRecordset ( stSQL) 

FlexOutput . Format String = "Record | Target Id | Time Target 
Designated I Sensor Type|NLT Time " 

Do Until RS.EOF 

iRecord = iRecord + 1 

FlexOutput .AddI tern iRecord Sc vbTab Sc RSiTargetId Sc vbTab Sc 
RS ITimeofDesignation _ 

Sc vbTab Sc frmQueries . cboWeaponTypes . Text Sc vbTab Sc 

RS ! TargetNLTTime 

RS . MoveNext 

Loop 
End If 



'Query by threat types detected 
If frmQueries .optQuery (4) .Value = True Then 

stSQL = "Select * from Acquisition, ThreatType " Sc _ 
"Where Acquisition. Threat Type = ' " Sc _ 
frmQueries . cboThreat Types . Text Sc _ 

"' And ThreatType. ThreatType = ' " Sc _ 
frmQueries . cboThreat Types . Text Sc " ' " 

Set RS = db.OpenRecordset (stSQL) 

FlexOutput .Formatstring = "Record | Acquis tion Event |Track 
Id I Threat Type | Time of Acquisition " 
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Do Until RS.EOF 

iRecord = iRecord + 1 

FlexOutput . Additem iRecord & vbTab & RS [Acquisition Sc vbTab 
Sc RSlTrackld Sc vbTab _ 

Sc f rmQueries . cboThreatTypes .Text Sc vbTab Sc RSlAcqTime 
RS .MoveNext 

Loop 
End If 



'Average time acquisition to mensuration 
If frmQueries.optQuery (5) .Value = True Then 



End If 



'Average time fire command to fire event 
If frmQueries.optQuerY(6) .Value = True Then 

End If 



'Nominations accepted as targets 
If frmQueries.optQuery (7) .Value = True Then 

stSQL = "SELECT Nomination . Nomination, Target . Targetid, 

Target . Description, " Sc _ 

"Nomination .Acquisition, Nomination . Mensuration " Sc _ 
"From Nomination, Target " Sc _ 

"WHERE Nomination. Nomination = Target . Nomination" 

Set RS = db.OpenRecordset (stSQL) 

FlexOutput . Formatstring = " Record | Nomination | Target 
Id I Description |Acquisition |Mensuration " 

FlexOutput . Clear 
iRecord = 1 
Do Until RS.EOF 

FlexOutput .Additem iRecord Sc vbTab Sc RS ! Nomination Sc vbTab 

Sc _ 

RS! Targetid Sc vbTab Sc RS ! Description Sc vbTab Sc 
RS I Acquisition Sc _ 

vbTab Sc RS ‘Mensuration 
stPrev = RS [Nomination 
RS .MoveNext 
If Not RS.EOF Then 

If StPrev <> RS [Nomination Then 
iRecord = iRecord + 1 
End If 
End If 

Loop 
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End If 



'Nominations declined as targets 
If frmQueries .optQuery (8) .Value = True Then 
stNoms = "Select * " & _ 

"From Nomination " 
stTargets = "Select * " & _ 

" From Target " 

Set rsNominations = db. OpenRecordset (stNoms) 

Set rsTargets = db . OpenRecordset (stTargets) 
datQuery . DatabaseName = gstNewDatabase 

rsNominations .MoveFirst 

iRecord = 1 

FlexOutput . Forma tString = "Record | Nomination 
I Acquisition | Mensuration | GISRSTerminal [Assessment " 

Do Until rsNominations . EOF 
rsTargets .MoveFirst 

Do Until rsTargets . EOF Or bFound = True 

If rsTargets ! Nomination = rsNominations i Nomination 

Then 

bFound = True 

Else 

rsTargets . MoveNext 
End If 



Loop 

With rsNominations 



If bFound = False Then 

FlexOutput .Additem iRecord & vbTab & 

! Nomination & vbTab Sc _ 

! Acquisition & vbTab & ‘Mensuration Sc vbTab 

Sc ‘GISRSTerminal Sc _ 

vbTab Sc ‘Assessment 
iRecord = iRecord + 1 

End If 
End With 
bFound = False 



rsNominations .MoveNext 

Loop 
End If 



'Targets fired upon (impacts) 

If frmQueries.optQuery (9) .Value = True Then 

stSQL = "Select Impact . Impact , Target . Targetid, 

Target .Description, " & _ 

" FireCommand . Platform, Fire . RoundsFired, Fire . FireTime , 

” Sc 
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" Impact . ImpactTime, Impact. BDA ” & _ 

"From Impact, Fire, FireCommand, Target " & _ 

"Where Fire. Fire = Impact . FireEvent ” & _ 

"And FireCommand. FireCommand = Fire . FireCommand " & 
"And Target .Targetid = FireCommand . Target Id" 

Set RS = db. OpenRecordset (stSQL) 



FlexOutput . Formatstring 

I" Sc _ 

I" Sc _ 



"Record I Impact | Target Id | Descript ion 
"Firer Platfoimi | Rounds] Fire Time 
"Impact Time | BDA 



iRecord = 1 
Do Until RS.EOF 

FlexOutput .AddI tern iRecord & vbTab & RS! Impact & vbTab & _ 
RS! Target Id & vbTab & RS IDescription & vbTab & 

RS! Platform 8c _ 

vbTab 8c RS!RoundsFired 8c vbTab 8c RSlFireTime 8c vbTab 8c 

RS ! ImpactTime & vbTab & RS ! BDA 
RS . MoveNext 
iRecord = iRecord + 1 



Loop 
End If 

End Sub 

Private Sub Form_Unload (Cancel As Integer) 

frmQueries . Enabled = True 
Unload Me 

End Sub 

Private Sub mnuFileBack_Click { ) 

frmQueries -Enabled = True 
Unload Me 

End Sub 



'Module: f rmQuestions . frm 

'Description: Allows user to access the questions 

' records for addition, deletion, and 

' modification. 

'Programmer; Kevin Colon 

• ★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★ 
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Option Explicit 



Private Sub cmdAdd__Click { ) 

On Error GoTo HandleAddErrors 

If cmdAdd. Caption = "&Add" Then 
datQuestions . Recordset . AddNew 
txtQuest ion. Enabled = True 
txtQuestion . SetFocus 
txtDescription . Enabled = True 
cmdAdd. Caption = "^Cancel" 
cmdSave . Enabled = True 
cmdDel . Enabled = False 
cmdUpdate . Enabled = False 
mnuFile . Enabled = False 
datQuestions . Enabled = False 



Else 

datQuestions . Recordset . CancelUpdate 

txtQuestion. Enabled = False 

txtDescription . Enabled = False 

cmdSave. Enabled = False 

cmdDel . Enabled = True 

cmdUpdate. Enabled = True 

mnuFile . Enabled = True 

cmdAdd .Caption = “ ScAdd " 

cmdAdd. SetFocus 

datQuestions . Enabled = True 

End If 

cmdAdd__Click_Exit : 

Exit Sub 

HandleAddErrors : 

Dim stMess As String 

stMess = “Cannot complete operation. " & vbCrLf Sc vbCrLf 
Sc Err .Description 

MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 



End Sub 

Private Sub cmdDel_Click ( ) 

'delete the current record 
Dim iResp As Integer 

On Error GoTo HandleDelErrors 

If datQuestions . Recordset . RecordCount > 0 Then 

iResp = MsgBox { "Delete Question " Sc txtQuestion .Text Sc 
vbYesNo, "Delete Question") 

If iResp = vbYes Then 

With datQuestions .Recordset 
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II 'p II 



.Delete 'delete current record 

.MoveNext 'move to following record 

If .EOF Then 

. MovePrevious 
If .BOF Then 

MsgBox "The recordset is empty.'', 
vbinformation, "No Records" 

End If 
End If 
End With 
End If 

Else 

MsgBox "No records to delete.", vbExclamation _ 

, "Delete Question" 



End If 

cmdDel_Click_Exit : 

Exit Sub 

HandleDelErrors : 

Dim stMsg As String 

stMsg = "Cannot complete operation." & vbCrLf & vbCrLf _ 

Sc Err . Description 

MsgBox stMsg, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

End Sub 

Private Sub cmdSave_Click ( ) 

'save the current record 
Dim iResp As Integer 

On Error GoTo HandleSaveErrors 

If txtQuestion <> "" And txtDescription <> "" Then 
txtQuestion = UCase ( txtQuestion) 

iResp = MsgBox ("Do you want to add " Sc txtQuestion Sc _ 

" to the database?", vbYesNo + vbQuestion, _ 
"Add Question") 

If iResp = vbYes Then 

datQuestions . Recordset . Update 
End If 



Else 

MsgBox "You must enter an Question and a description before 
saving.", vbExclamation _ 

, "Add Question" 

datQuestions . Recordset . CancelUpdate 
End If 

txtQuestion . Enabled = False 
txtDescription . Enabled = False 
cmdSave . Enabled = False 
cmdDel . Enabled = True 
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datQuestions . Enabled = True 
mnuFile . Enabled = True 
cmdAdd .Caption = " & Add " 
cmdAdd. SetFocus 
cmdUpdate . Enabled = True 



cmdSave_Click_Exit : 

Exit Sub 

HandleSaveErrors : 

Dim stMess As String 
Select Case Err. Number 

Case 3022 'duplicate key field 

stMess = "Record already exists could not save>'" 
MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

Case 3058, 3315 'no entry in key field 

stMess = "Enter a Question name before saving." 
MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

Case Else 

stMess = "Record could not be saved." & vbCrLf _ 

Sc Err . Description 

MsgBox stMess, vbExclamation, "Database Error" 
datQuestions . Recordset . CancelUpdate 
Resume Next 
End Select 

End Sub 

Private Sub cmdUpdate_Click ( ) 

If cmdUpdate. Caption = "^Update" And _ 

datQuestions .Recordset .RecordCount > 0 Then 

cmdUpdate. Caption = "Su&bmit" 
txtQuestion . Enabled = True 
txtDescript ion . Enabled = True 
cmdDel . Enabled = False 
mnuFile . Enabled = False 
txtQuestion . SetFocus 
cmdAdd . Enabled = False 
datQuestions . Enabled = False 
datQuestions . Recordset . Edit 

Else 

If datQuestions . Recordset . RecordCount > 0 Then 
datQuestions . Recordset .Update 

txtQuestion . Enabled = False 
txtDescription. Enabled = False 
cmdDel . Enabled = True 
mnuFile . Enabled = True 
• cmdAdd. Enabled = True 
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cmdAdd . SetFocus 
cmdUpdate .Caption = "ScUpdate" 
datQuest ions. Enabled = True 
End If 
End If 

End Sub 

Private Sub datQuestions_Reposition ( ) 
SetQuestionRecordNumber 

End Sub 

Private Sub Form_Load{) 

datQuestions . DatabaseName = gstNewDatabase 

With datQuestions 
. Refresh 

If Not . Recordset . EOF Then 
. Recordset . MoveLas t 
. Recordset .MoveFirst 
End If 
End With 

SetQuestionRecordNuinber 



End Sub 

Private Sub Fo2rm_Un load {Cancel As Integer) 
fnnMain. Show 
frmMain. Enabled = True 
Unload Me 

End Sub 

Private Sub mnuFileBack_Click () 

fntiMain. Enabled = True 
Unload Me 

End Sub 

Private Sub mnuFileSearch_Click ( ) 

datQuestions. Recordset .FindFirst "[Question] = _ 

InputBox ( "Enter the Question", "Question Search") & " 

If datQuestions . Recordset .NoMatch Then 

MsgBox "Question was not found.", vbOKOnly, "Question Search" 
datQuestions . Recordset .MoveFirst 'go to first record 

End If 

End Sub 



210 



Private Sub SetQuestionRecordNumber { ) 

Dim iRecordCount As Integer 
Dim iCurrentRecord As Integer 

iRecordCount = datQuest ions . Recordset .RecordCount 
iCurrentRecord = datQuestions . Recordset .AbsolutePosition + 1 
If datQuestions . Recordset . EOF Then 

datQuestions . Caption = "No more records" 

Else 

datQuestions .Caption = "Question " & iCurrentRecord & _ 

" of " Sc iRecordCount 

End If 
End Sub 



'Module : f rmQuestions . f rm 

'Description: Allows user to access the questions 

' records for addition, deletion, and 

' modification. 

'Programmer: Kevin Colon 

< ★★*★★★*★★★★★★★★*★*★★★*★*★★*★★★*★*★**★★*★★★***■*■*★*★■*'**★★*★*★*★ 



Option Explicit 

Private Sub cmdAdd_Click { ) 

On Error GoTo HandleAddErrors 

If cmdAdd. Caption = "Sc Add" Then 
datQuestions . Recordset .AddNew 
txtQuestion. Enabled = True 
txtQuestion . SetFocus 
txtDescription . Enabled = True 
cmdAdd. Caption = "ScCancel" 
cmdSave .Enabled = True 
cmdDel . Enabled = False 
cmdUpdate . Enabled = False 
mnuFile . Enabled = False 
datQuestions . Enabled = False 



Else 

datQuestions . Recordset . CancelUpdate 

txtQuestion . Enabled = False 

txtDescription. Enabled = False 

cmdSave . Enabled = False 

cmdDel .Enabled = True 

cmdUpdate. Enabled = True 

mnuFile . Enabled = True 

cmdAdd. Caption = "ScAdd" 

cmdAdd . SetFocus 

datQuestions . Enabled = True 

End If 
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cmdAdd_Click_Exit : 

Exit Sub 

HandleAddErrors : 

Dim stMess As String 

stMess = "Cannot complete operation. " & vbCrLf & vbCrLf 
Sc Err . Description 

MsgBox stMess, vbExc lama t ion, "Database Error" 

On Error GoTo 0 'turn off error trapping 



End Sub 

Private Sub cmdDel_Click ( ) 

'delete the current record 
Dim iResp As Integer 

On Error GoTo HandleDelErrors 

If datQuestions.Recordset .RecordCount > 0 Then 

iResp = MsgBox ( "Delete Question " Sc txtQuest ion, Text Sc "?", 
vbYesNo, "Delete Question") 

If iResp = vbYes Then 

With datQuestions.Recordset 

.Delete 'delete current record 

.MoveNext 'move to following record 

If .EOF Then 

. MovePrevious 
If .BOF Then 

MsgBox "The recordset is empty.", 
vbinformation, "No Records" 

End If 
End If 
End With 
End If 

Else 

MsgBox "No records to delete.", vbExclamation _ 

, "Delete Question" 



End If 

cmdDel_Click_Exit : 

Exit Sub 

HandleDelErrors : 

Dim stMsg As String 

stMsg = "Cannot complete operation." Sc vbCrLf Sc vbCrLf 
Sc Err . Description 

MsgBox stMsg, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

End Sub 
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Then 



Private Sub cmdSave_Click { ) 

' save the current record 
Dim iResp As Integer 

On Error GoTo HandleSaveErrors 
If txtQuestion <> " " And txtDescription <> 
txtQuestion = UCase ( txtQuestion) 
iResp = MsgBox("Do you want to add " & txtQuestion & _ 
" to the database?”, vbYesNo + vbQuestion, 
"Add Question") 

If iResp = vbYes Then 

datQuestions . Recordset . Update 
End If 



Else 

MsgBox "You must enter an Question and a description before 
saving.", vbExclamation _ 

, "Add Question" 

datQuestions . Recordset . CancelUpdate 
End If 

txtQuestion. Enabled = False 
txtDescription . Enabled = False 
cmdSave . Enabled = False 
cmdDel . Enabled = True 
datQuestions . Enabled = True 
mnuFile . Enabled = True 
cmdAdd. Caption = "&Add" 
cmdAdd . Se tFocus 
cmdUpdate . Enabled = True 



cmdSave_Click_Exit : 

Exit Sub 

HandleSaveErrors : 

Dim stMess As String 
Select Case Err. Number 

Case 3022 'duplicate key field 

stMess = "Record already exists -- could not save> ' " 
MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

Case 3058, 3315 'no entry in key field 

stMess = "Enter a Question name before saving." 
MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

Case Else 

stMess = "Record could not be saved." & vbCrLf _ 

Sc Err .Description 

MsgBox stMess, vbExclamation, "Database Error" 
datQuestions . Recordset . CancelUpdate 
Resume Next 
End Select 
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End Sub 



Private Sub cmdUpdate_Click ( ) 

If cmdUpdate .Caption = "&Update" And _ 

datQuestions . Recordset . RecordCount > 0 Then 

cmdUpdate .Caption = "Su&bmit" 
txtQuest ion. Enabled = True 
txtDescription . Enabled = True 
cmdDel . Enabled = False 
mnuFile . Enabled = False 
txtQuest ion . SetFocus 
cmdAdd. Enabled = False 
datQuestions . Enabled = False 
datQuestions . Recordset . Edit 

Else 

If datQuestions . Recordset .RecordCount > 0 Then 
datQuestions . Recordset . Update 

txtQuestion . Enabled = False 
txtDescription . Enabled = False 
cmdDel . Enabled = True 
mnuFile . Enabled = True 
cmdAdd . Enabl ed = True 
cmdAdd . SetFocus 
cmdUpdate. Caption = "&Update" 
datQuestions . Enabled = True 
End If 
End If 

End Sub 

Private Sub datQuestions_Reposition ( ) 
SetQuestionRecordNumber 

End Sub 

Private Sub Form_Load ( ) 

datQuestions .DatabaseName = gstNewDatabase 

With datQuestions 
. Refresh 

If Not . Recordset . EOF Then 
. Recordset .MoveLast 
. Recordset . MoveFirst 
End If 
End With 

SetQuestionRecordNumber 



End Sub 

Private Sub Form_Unload (Cancel As Integer) 
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frmMain. Show 
frmMain. Enabled = True 
Unload Me 

End Sub 

Private Sub mnuFileBack_Click ( ) 

frmMain . Enabled = True 
Unload Me 

End Sub 

Private Sub mnuFileSearch_Click ( ) 

datQuestions . Recordset . FindFirst "[Question] = ' " & _ 

InputBox ( "Enter the Question", "Question Search") & 

If datQuestions . Recordset .NoMatch Then 

MsgBox "Question was not found.", vbOKOnly, "Question Search 
datQuestions . Recordset .MoveFirst 'go to first record 

End If 

End Sub 

Private Sub SetQuestionRecordNumber ( ) 

Dim iRecordCount As Integer 
Dim iCurrentRecord As Integer 

iRecordCount = datQuestions . Recordset . RecordCount 
iCurrentRecord = datQuestions . Recordset .AbsolutePosition + 1 
If datQuestions . Recordset . EOF Then 

datQuestions . Caption = "No more records" 

Else 

datQuestions .Caption = "Question " & iCurrentRecord & _ 

" of " & iRecordCount 

End If 
End Sub 



'Module; frmSQL. frm 

'Description: Allows user to enter their own SQL statement 

' and provides the results in a data bound 

' control. 

'Programmer: Kevin Colon 

«★★★★**■■*■★★★★★★★★*★*'*■★★★★******★*★★********★★***■*■***★★***■****■** 



Option Explicit 
Private Sub cmdCancel_Click ( ) 
frmMain . Enabled = True 
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Unload Me 



End Sub 

Private Sub cmdSearch_Click ( ) 
Dim stMsg As String 



On Error GoTo HandleQueryError 

datSQL.DatabaseName = gstNewDat abase 

datSQL.RecordSource = txtSQL 
datSQL . Refresh 

cmdSearch_Click_Exit : 

Exit Sub 



HandleQueryError : 

Select Case Err. Number 
Case 3078 

stMsg = "A table you entered is not recognized, 
verifythat this table exists." 

MsgBox stMsg, vbOKOnly, "Custom Query Error" 

txtSQL . SetFocus 
Exit Sub 
End Select 



End Sub 

Private Sub Form_Un load (Cancel As Integer) 

frmMain. Enabled = True 
Unload Me 

End Sub 

'Module: f rmTargetEvent . frm 

'Description: Allows user to access the target records 

' for addition, deletion, and modification. 

'Programmer: Kevin Colon 



Option Explicit 



Dim rsNomination 
Dim rsWeaponType 
Dim stSQLl 
Dim stSQL2 
Private WordApp 
Private Doc 



As Recordset 
As Recordset 
As String 
As String 

As Word. Application 
As Word. Document 



Please 



★ ★ 



★ ★ 
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Private Sel 



As Word. Selection 



Private Sub cboNomination_Change ( ) 

If cboNomination . Listindex >= 0 Then 
txtNomination = cboNomination. Text 
End If 

End Sub 

Private Sub cboWeaponType_Change ( ) 

If cboWeaponType . Listindex >= 0 Then 
txtWeaponType = cboWeaponType . Text 
End If 

End Sub 

Private Sub cmdAdd_Click ( ) 

On Error GoTo HandleAddErrors 

If cmdAdd. Caption = "&Add*' Then 

datTarget . Recordset . AddNew 
cboNomination. Enabled = True 
cboWeaponType. Enabled = True 
cboNomination . Listindex = -1 
cboWeaponType. Listindex = -1 
txtTimeof Designation. Enabled = True 
txtNLTTime . Enabled = True 
txtDescript ion . Enabled = True 
txtLocat ion. Enabled = True 
txt Altitude. Enabled = True 
txt Speed. Enabled = True 
txtRemark. Enabled = True 
txtTargetId. Enabled = True 
txt Priority. Enabled = True 
txtDesiredEf feet . Enabled = True 
cmdUpdate. Enabled = False 
cmdSave . Enabled = True 
cmdDel . Enabled = False 
cmdAdd. Caption = "^Cancel" 
mnuFile . Enabled = False 
datTarget . Enabled = False 



Else 



datTarget . Recordset . CancelUpdate 
cboNomination. Enabled = False 
cboWeaponType . Enabled = False 
txtTimeof Designation. Enabled = False 
txtNLTTime. Enabled = False 
txtDescript ion. Enabled = False 
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txtLocation . Enabled = False 
txtAltitude . Enabled = False 
txt Speed. Enabled = False 
txtRemark. Enabled = False 
txtTarget Id. Enabled = False 
txtPriority. Enabled = False 
txtDesiredEf feet . Enabled = False 
cmdUpdate . Enabled = True 
cmdSave . Enabled = False 
cmdDel .Enabled = True 
cmdAdd. Caption = "&Add" 
mnuFile. Enabled = True 
datTarget . Enabled = True 
cmdAdd . SetFocus 

End If 

cmdAdd_C lie k_Ex i t : 

Exit Sub 

HandleAddErrors : 

Dim stMess As String 

stMess = "Cannot complete operation. " & vbCrLf & vbCrLf & 

Err . Description 

MsgBox stMess, vbExc lama t ion , "Database Error" 

On Error GoTo 0 'turn off error trapping 



End Sub 

Private Sub cmdDel_Click ( ) 

Dim iResp As Integer 

On Error GoTo HandleDelErrors 

If datTarget .Recordset .RecordCount > 0 Then 

iResp = MsgBox ( "Delete Target " & txtTargetId & vbYesNo, 

"Delete Target") 

If iResp = vbYes Then 

With datTarget . Recordset 
.Delete 
. MoveNext 
If .EOF Then 

. MovePrevious 
If .BOF Then 

MsgBox "The recordset is empty.", 
vbinf ormation, "No Records" 

End If 
End If 
End With 
End If 

Else 

MsgBox "No records to delete.", vbExc lama t ion, "Delete Target" 
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End If 



cmdDel_Click: 
Exit Sub 



HandleDelErrors : 
Dim stMess 



As String 



stMess = "Cannot complete operation." & vbCrLf & vbCrLf & 
Err . Description 

MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 



End Sub 

Private Sub cmdSave_Click { ) 

' save current record 

On Error GoTo HandleSaveErrors 

If cboNomination.ListIndex >= 0 And cboWeaponType .List Index >= 0 

Then 



datTarget .Recordset .Update 

Else 

MsgBox "You must select a Nomination Event and a Weapon Type 
before saving. " _ 

, vbExclamation, "Add Target Event" 
datTarget . Recordset . CancelUpdate 
End If 

cboNominat ion . Enabled = False 
cboWeaponType . Enabled = False 
txtTimeof Designation. Enabled = False 
txtNLTTime . Enabled = False 
txtDescript ion. Enabled = False 
txtLocation . Enabled = False 
txtAltitude . Enabled = False 
txt Speed. Enabled = False 
txtRemark . Enabled = False 
txtTarget Id. Enabled = False 
txtPriority . Enabled = False 
txtDesiredEf feet . Enabled = False 
cmdUpdate. Enabled = True 
cmdSave . Enabled = False 
cmdDel .Enabled = True 
cmdAdd. Caption = "&Add" 
mnuFile . Enabled = True 
datTarget . Enabled = True 
cmdAdd. Set Focus 



datTarget . Enabled = True 
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cmdSave_Click_Exit : 

Exit Sub 

HandleSaveErrors : 

Dim stMess As String 
Select Case Err. Number 

Case 3022 'duplicate key field 

stMess = "Record already exists -- could not save>'" 
MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

Case 3058, 3315 'no entry in key field 

stMess = "Select Nomination Event and Weapon Type before 

saving. " 

MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

Case Else 

stMess = "Record could not be saved." & vbCrLf _ 

& Err . Description 

MsgBox stMess, vbExclamation, "Database Error" 
datTarget . Recordset . CancelUpdate 
Resume Next 
End Select 

End Sub 

Private Sub cmdUpdate_Click ( ) 

If cmdUpdate .Caption = "^Update" And _ 

datTarget . Recordset . RecordCount > 0 Then 

cmdUpdate . Caption = "Su&bmit" 
cboNominat ion . Enabled = True 
cboWeaponType . Enabled = True 
txtTimeof Designation. Enabled = True 
txtNLTTime. Enabled = True 
txtDescript ion. Enabled = True 
txtLocation. Enabled = True 
txtAltitude . Enabled = True 
txtSpeed . Enabled = True 
txtRemark . Enabled = True 
txtTarget Id. Enabled = True 
txtPriority. Enabled = True 
txtDesiredEf feet . Enabled = True 
cmdAdd. Enabled = False 
cmdSave . Enabled = False 
cmdDel . Enabled = False 
mnuFile . Enabled = False 
datTarget . Enabled = False 
datTarget . Recordset . Edit 



Else 

I f datTarget . Recordset . RecordCount > 0 Then 
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datTarget . Recordset . Update 

cboNomina ti on . Enabled = False 

cboWeaponType . Enabled = False 

txtTimeofDesignation . Enabled = False 

txtNLTTime . Enabled = False 

txt Descript ion. Enabled = False 

txt Location. Enabled = False 

txtAltitude . Enabled = False 

txtSpeed. Enabled = False 

txtRemark. Enabled = False 

txt Target Id. Enabled = False 

txtPriority. Enabled = False 

txtDesiredEf feet . Enabled = False 

cmdDel . Enabled = True 

cmdAdd. Enabled = True 

cmdAdd . Set Focus 

cmdUpdate . Caption = " ScUpdate " 

mnuFile . Enabled = True 

datTarget . Enabled = True 



End If 
End If 

End Sub 

Private Sub datTarget_Reposition ( ) 
SetTargetRecordNumber 
End Sub 

Private Sub Form_Load{) 



datTarget .DatabaseName = gstNewDatabase 

stSQLl = "Select Nomination from Nomination" 
stSQL2 = "Select WeaponType from WeaponType" 



Set rsNomination = db . OpenRecordset ( stSQLl ) 

Set rsWeaponType = db.OpenRecordset (stSQL2) 

'fill cboNomination 
Do Until rsNomination. EOF 

cboNomination. AddI tern rsNomination I Nomination 
rsNomination . MoveNext 

Loop 

'fill CboWeaponType 
Do Until rsWeaponType . EOF 

CboWeaponType . AddI tern rsWeaponType ! WeaponType 
rsWeaponType . MoveNext 
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Loop 



With datTarget 
.Refresh 

If Not .Recordset. EOF Then 
.Recordset .MoveLast 
. Recordset .MoveFirst 
End If 
End With 



SetTargetRecordN\iinber 



End Sub 

Private Sub SetTargetRecordNuitODer ( ) 



Dim iRecordCount As Integer 
Dim iCurrentRecord As Integer 



_ Recordset . RecordColint 

iSrrLtRicord = datTarget .Recordset .AbsolutePosition 



If datTarget. 
datTarget 



Recordset .EOF Then 
.Caption = "No more records 
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Else 

datTarget .Caption 



"Target Record " & iCurrentRecord & 

" of " & iRecordCount 



End If 



End Sub 

Private Sub Form_Unload (Cancel As Integer) 



f rmMa in . Enabled - True 
Unload Me 

End Sub 

Private Sub mnuFileBack_Click ( ) 

frmMain . Enabled = True 
Unload Me 

End Sub 

Private Sub mnuFilePrint_Click( ) 

f rmPrint . Show 



On Error GoTo mnuPrintErrors 
If bContinue = True Then 

With datTarget . Recordset 

If bWord = True Then 
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Set WordApp = New Word .Application 
WordApp . Documents . Add 
Set Doc = WordApp .Act iveDocument 
Set Sel = WordApp. Selection 

Doc .Tables .Add Range : =Sel . Range , NumRows : = . RecordCount , 

NumColuirms : =8 



cell 



cell 



cell 



Sel.TypeText Text := "Target Id" 

Sel .MoveRight unit: =12 '12=next cell 



Sel.TypeText Text := "Designation Time" 

Sel .MoveRight unit: =12 ' 12=next cell 

Sel .TypeText Text : ="Nomination " 

Sel .MoveRight unit: =12 '12=next cell 



Sel . TypeText Text : = " Location " 

Sel .MoveRight unit: =12 '12=next cell 

Sel.TypeText Text :=" Altitude" 

Sel .MoveRight unit; =12 '12=next cell 



Sel . TypeText Text : = " Speed" 

Sel .MoveRight unit: =12 '12=next cell 



Sel.TypeText Text:="NLT Time" 

Sel .MoveRight unit: =12 '12=next cell 

Sel.TypeText Text :=" Priority " 

Sel .MoveRight unit: =12 '12=next cell 



Sel.TypeText Text ;= "Weapon Type" 

Sel .MoveRight unit : =12 '12=next cell 

Sel.TypeText Text := "Remark" 

Sel .MoveRight unit: =12 '12=next cell 



Do Until .EOF 



Sel.TypeText Text : = ITarget Id 

Sel .MoveRight unit: =12 '12=next 



Sel . TypeText Text ; = iTimeof Designation 

Sel .MoveRight unit: =12 '12=next 



Sel.TypeText Text := ‘Nomination 

Sel .MoveRight unit: =12 '12=next 



Sel.TypeText Text := ITargetLocat ion 
Sel .MoveRight unit: =12 
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' 12=next 



cell 

Sel.TypeText Text :=! Targe tAltitude 

Sel -MoveRight unit: =12 '12=next 

cell 

Sel.TypeText Text := ITarget Speed 

Sel .MoveRight unit; =12 '12=next 

cell 

Sel . TypeText Text : = ! TargetNLTTime 

Sel .MoveRight unit: =12 '12=next 

cell 



Sel.TypeText Text :=! Priority 

Sel .MoveRight unit: =12 '12=next 

cell 



Sel . TypeText Text : = ! WeaponType 

Sel .MoveRight unit: =12 '12=next 

cell 



Sel . TypeText Text : = ! Remark 

Sel .MoveRight unit: =12 '12=next 

cell 



. MoveNext 



Loop 

WordApp. Visible = True 
Set WordApp = Nothing 



Chr ( 9 ) ; 



Chr ( 9 ) ; 



Else 



If bText = True Then 

Open App.Path & "\NomEvents.txt" For Output As #1 

Print #1, "Targetid"; Chr(9); "Designation Time" ; 
" Nomination " ; Chr ( 9 ) ; _ 



"Location"; Chr (9); "Altitude"; Chr (9) 

"Speed"; Chr(9); "NLTTime"; Chr(9); _ 
"Priority" ; Chr (9) ; "WeaponType" ; 

" Remark " ; Chr ( 9 ) 



Do Until .EOF 

Print #1, ITargetId; Chr(9); _ 

ITimeof Designation; Chr(9); _ 
1 Nomination ; Chr ( 9 ) ; _ 
ITargetLocation; Chr(9); _ 
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. MoveNext 



ITargetAltitude; Chr(9) ; 
! Target Speed; Chr(9); _ 

! TargetNLTTime ; Chr ( 9 ) ; 
IPriority; Chr(9); _ 

! WeaponType ; Chr ( 9 ) ; _ 

! Remark; Chr (9) 



Loop 

Close #1 

End If 
End If 

•MoveFirst 

End With 

End If 

bContinue = False 
bWord = False 
bText = False 



mnuPrintErrors : 

Select Case Err. Number 
Case 94 

Sel.TypeText Text; = "'' 
Resume Next 
End Select 



End Sub 

Private Sub txtNomination_Change ( ) 

'selects correct combo box listing 
Dim iindex As Integer 

Dim bFound As Boolean 

rsNomination .MoveFirst 
If txtNomination <> "" Then 

Do Until iindex = rsNomination . RecordCount Or bFound 
If rsNomination ! Nomination = txtNomination Then 
cboNomination . Text = rsNomination ! Nomination 
bFound = True 

Else 

rsNomination . MoveNext 
iindex = iindex + 1 
End If 



Loop 
End If 



225 



End Sub 



Private Sub txtWeaponType_Change ( ) 

'selects correct coitIdo box listing 
Dim iindex As Integer 

Dim bFound As Boolean 

rsWeaponType . MoveFirst 
If txtWeaponType <> " " Then 

Do Until iindex = rsWeaponType . RecordCount Or bFound 
If rsWeaponType IWeaponType = txtWeaponType Then 
cboWeaponType . Text = rsWeaponType ! WeaponType 
bFound = True 

Else 

rsWeaponType . MoveNext 
iindex = iindex + 1 
End If 



Loop 
End If 

End Sub 



'Module : f rmTargets2 . frm 

'Description: Allows user to view all target records. Uses 

' the filters form to reduce the number of 

' records displayed. 

'Programmer: Kevin Colon 



Option Explicit 



Private Sub FlexTargets_DblClick ( ) 
f rmTimeline . Show 
End Sub 

Private Sub dbgTargets_DblClick ( ) 
f rmTimeline . Show 
End Sub 

Private Sub Form_Load() 

Dim stSQL As String 
Dim iRecord As Integer 

stSQL = "Select * from Target" 
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datTargets .DatabaseName = gstNewDatabase 



datTargets . RecordSource = stSQL 
datTargets . Refresh 

End Sub 

Private Sub Form__Resize ( ) 

dbgTargets .Width = Me. Width 
End Sub 

Private Sub Form_Unload (Cancel As Integer) 

f rmMa in . Enabled = True 
Unload Me 

End Sub 

Private Sub mnuFileBack_Click { ) 

f rmMa in . Enabled = True 
Unload Me 

End Sub 

Private Sub mnuFilters_Click { ) 

f rmFilters . Show 
Me. Enabled = False 

End Sub 



#★***★★*■*★★*★★**★★****★*******★★★★★★★★★★**★★★■*■*★★*★★*★★*★★*★*★ 
'Module: frmThreat Types . frm 

'Description: Allows user to access the threat types 

' records for addition, deletion, and 

' modification. 

'Programmer: Kevin Colon 

I ********•*•*******•*•★**★**★★*★*★★**★*★***★*★★★★★★★★★★★★*★★★*★★★★ 



Option Explicit 

Private Sub cmdAdd_Click { ) 

On Error GoTo HandleAddErrors 

If cmdAdd. Caption = "£cAdd" Then 

datThreatTypes . Recordset . AddNew 
txtThreatType . Enabled = True 
txtThreatType . SetFocus 
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txtDescription . Enabled = True 
txtMission . Enabled = True 
cmdAdd. Caption = "^Cancel" 
cmdS a ve . Enabled = True 
cmdDel . Enabled = False 
cmdUpdate .Enabled = False 
mnuFile . Enabled = False 
datThreatTypes . Enabled = False 



Else 

datThreatTypes . Recordset . CancelUpdate 
txtThreatType . Enabled = False 
txtDescription . Enabled = False 
' txtMission . Enabled = False 
cmdSave . Enabled = False 
cmdDel . Enabled = True 
cmdUpdate. Enabled = True 
mnuFile . Enabled = True 
cmdAdd. Caption = "&Add" 
cmdAdd . Set Focus 
datThreatTypes . Enabled = True 

End If 

cmdAdd_Click_Exit : 

Exit Sub 

HandleAddErrors : 

Dim stMess As String 

stMess = "Cannot complete operation. " & vbCrLf & vbCrLf _ 

Sc Err .Description 

MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

End Sub 

Private Sub cmdDel_Click ( ) 

'delete the current record 
Dim iResp As Integer 

On Error GoTo HandleDel Errors 

If datThreatTypes. Recordset .RecordCount > 0 Then 

iResp = MsgBox ( "Delete Threat " & txtThreatType . Text & "? 

vbYesNo, "Delete Threat") 

If iResp = vbYes Then 

With datThreatTypes. Recordset 

.Delete 'delete current record 

.MoveNext 'move to following record 

If .EOF Then 

. MovePrevious 
I f . BOF Then 

MsgBox "The recordset is empty.", 

vbinformation, "No Records" 

End If 
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End If 
End With 
End If 

Else 

MsgBox "No records to delete.", vbExclamation 
, "Delete Threat" 



End If 

cmdDel_Click_Exit : 

Exit Sub 

HandleDelErrors : 

Dim stMsg As String 

stMsg = "Cannot complete operation." & vbCrLf & vbCrLf _ 

& Err .Description 

MsgBox stMsg, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

End Sub 

Private Sub cmdSave_Click ( ) 

' save the current record 
Dim iResp As Integer 

On Error GoTo HandleSaveErrors 
If txtThreatType.Text <> "" Then 

txtThreatType . Text = UCase ( txtThrea tType . Text ) 
iResp = MsgBox ("Do you want to add " & txtThreatType.Text & 
" to the database?", vbYesNo + vbQuestion, _ 
"Add Threat") 

If iResp = vbYes Then 

datThreatTypes . Recordset . Update 
End If 



Else 

MsgBox "You must enter a Threat type before saving.", 
vbExclamation _ 

, "Add Threat" 

datThreatTypes . Recordset . CancelUpdate 
End If 

txtThreatType. Enabled = False 
txtDescript ion. Enabled = False 
txtMission . Enabled = False 
cmdSave . Enabled = False 
cmdDel . Enabled = True 
datThreatTypes .Enabled = True 
mnuFile. Enabled = True 
cmdAdd . Cap t i on = " &Add " 
cmdAdd . Set Focus 
cmdUpdate. Enabled = True 
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cmdSave_Click_Exit : 

Exit Sub 

HandleSaveErrors ; 

Dim stMess As String 
Select Case Err. Number 

Case 3022 'duplicate key field 

stMess = "Record already exists — could not save>' 
MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

Case 3058, 3315 'no entry in key field 

stMess = "Enter a Threat type before saving." 
MsgBox stMess, vb Exclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

Case Else 

stMess = "Record could not be saved." & vbCrLf _ 

& Err .Description 

MsgBox stMess, vb Exclamation, "Database Error" 
datThreatTypes . Recordset . CancelUpdate 
Resume Next 
End Select 

End Sub 

Private Sub cmdUpdate_Click ( ) 

If cmdUpdate. Caption = "ScUpdate" And _ 

datThreatTypes . Recordset . RecordCount > 0 Then 

cmdUpdate .Caption = "Su&bmit" 
txtThreatType . Enabled = True 
txtDescription . Enabled = True 
txtMission . Enabled = True 
cmdDel . Enabled = False 
mnuFile . Enabled = False 
txtThreatType . SetFocus 
cmdAdd. Enabled = False 
datThreatTypes . Enabled = False 
datThreatTypes . Recordset . Edit 

Else 

If datThreatTypes . Recordset . RecordCount > 0 Then 
datThreatTypes . Recordset . Update 

txtThreatType . Enabled = False 
txtDescription. Enabled = False 
txtMission . Enabled = False 
cmdDel . Enabled = True 
mnuFile . Enabled = True 
cmdAdd. Enabled = True 
cmdAdd . SetFocus 
cmdUpdate .Caption = "^Update" 
datThreatTypes . Enabled = True 
End If 
End If 
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End Sub 



Private Sub datThreatTypes_Reposition ( ) 

S e t Thr ea t Re c o r dNumber 
End Sub 

Private Sub Form_Load ( ) 

da t Thr eat Types . DatabaseName = gstNewDatabase 

With datThreatTypes 
. Refresh 

If Not . Recordset . EOF Then 
. Recordset .MoveLast 
. Recordset .MoveFirst 
End If 
End With 

Set Threat RecordNumber 



End Sub 

Private Sub Form_Un load (Cancel As Integer) 

fnriMa in. Enabled = True 
Unload Me 

End Sub 

Private Sub mnuFileBack_Click ( ) 

f rmMa in . Enabled = True 
Unload Me 

End Sub 

Private Sub mnuFileSearch_Click ( ) 

datThreatTypes. Recordset -FindFirst " [ThreatType] = _ 

InputBox( "Enter the Threat Type", "Threat Type Search") 

8c " ' " 



If datThreatTypes .Recordset .NoMatch Then 

MsgBox "Threat Type was not found.", vbOKOnly, "Threat Type 

Search" 

datThreatTypes .Recordset .MoveFirst 'go to first record 

End If 

End Sub 

Private Sub SetThreatRecordNuinber ( ) 
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Dim iRecordCount As Integer 
Dim iCurrentRecord As Integer 

iRecordCount = datThreatTypes . Recordset . RecordCount 
iCurrentRecord = datThreatTypes . Recordset .AbsolutePosit ion + 1 
If datThreatTypes . Recordset . EOF Then 

datThreatTypes .Caption = "No more records" 

Else 

datThreatTypes .Caption = "Threat " & iCurrentRecord & _ 

" of " Sc iRecordCount 

End If 
End Sub 



'Module : f rmTimeline . f rm 

'Description: Displays the event timeline from acquisition 

' to impact for a selected target 

' Programmer : Kevin Colon 



Option Explicit 



Private Sub Form_Load() 

Dim stSQL As String 

Dim stTarget As String 

Dim iTabs As Integer 

Dim rsTimes As Recordset 

Dim stSQLl As String 

Dim stSQL2 As String 

Dim stSQLS As String 

Dim stSQL4 As String 

Dim stSQLS As String 

Dim stSQL6 As String 

Dim stSQL7 As String 

Dim rsAcquisition As Recordset 

Dim rsMensuration As Recordset 

Dim rsNomination As Recordset 

Dim rsTarget As Recordset 

Dim rsFireCommand As Recordset 

Dim rsFire As Recordset 

Dim rsimpact As Recordset 

f rmTargets2 . dbgTargets . Col = 0 
StTarget = frmTargets2 .dbgTargets .Text 

stSQL4 = "Select * from Target where Target . Targetid = '" & 
StTarget & " ' " 

Set rsTarget = db.OpenRecordset (stSQL4) 

stSQL3 = "Select * from Nomination where Nomination .Nomination 
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5c rsTarget i Nomination 5c ” ' ” 

Set rsNomination = db. OpenRecordset ( stSQLS ) 

stSQL2 = "Select * from Mensuration where Mensuration .Mensuration 
5c rsNomination [Mensuration 5c 
Set rsMensuration = db . OpenRecordset ( stSQL2 ) 

stSQLl = "Select * from Acquisition where Acquisition .Acquisition 
5c rsNomination [Acquisition 5c 
Set rsAcquisition = db. OpenRecordset (stSQLl) 

stSQLS = "Select * from FireCommand where FireCommand . Target Id = ' 
5c stTarget 5c " ' " 

Set rsFireCommand = db . OpenRecordset ( stSQLS ) 

stSQL6 = "Select * from Fire where Fire . FireCommand = ' " 5c 
rsFireCommand 1 FireCommand 5c 

Set rsFire = db. OpenRecordset ( stSQL6 ) 

If rsFire . RecordCount > 0 Then 

stSQL? = "Select * from Impact where Impact . FireEvent = ' " 5c 
rsFire IFire 5c 

Set rsimpact = db. OpenRecordset (st SQL? ) 

End If 



IstTimeline . Additem "Target Id: " 5c stTarget 

IstTimeline . Additem "Target Description: " 5c 

rsTarget [Description 

IstTimeline .Additem " " 

IstTimeline .Additem "NLT Time: " 5c 

rsTarget [ Targe tNLTTime 

IstTimeline .Additem " " 

IstTimeline .Additem "Acquisition Time: " 5c 

rsAcquisition [AcqTime 

IstTimeline .Additem "Mensuration Rqst: " 5c 

rsMensuration [ TimeRequestSent 

IstTimeline .Additem "Mensuration Rcvd: " 5c 

rsMensuration [ TimeRequestReceived 

IstTimeline .Additem "Mensuration Info Sent: " 5c 

rsMensuration [ TimeRequestReceived 

IstTimeline .Additem "Mensuration Info Rcvd: " 5c 

rsMensuration [TimeRequestReceived 

IstTimeline .Additem "Nomination Sent: " 5c 

rsNomination [ NomTimeSent 

IstTimeline .Additem "Nomination Rcvd: " 5c 

rsNomination [ NomTimeRcvd 

IstTimeline .Additem "Target Designation: " 5c 

rsTarget [Timeof Designation 

IstTimeline .Additem "Fire Command Xmit : " 5c 

rsFireCommand [ FCTimeXmit 

IstTimeline .Additem "Fire Command Rcvd: " 5c 

rsFireCommand [ FCTimeRcvd 



If rsFire . RecordCount > 0 Then 
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& rsFire I FireTime 



IstTimeline . AddI tern "Fire Event: " 

If rsimpact .RecordCount > 0 Then 

IstTimeline .Additem "Impact: " & rsimpact ! ImpactTime 
End If 
End If 

frmTargets2 .Enabled = False 



End Sub 

Private Sub Form^Unload (Cancel As Integer) 

frmTargets2 . Enabled = True 
Unload Me 

End Sub 



/★★★★**★***★***★★*★*★**★★★*★★*★***★★*★★*★★*★*★★★★*★★★*★*★★★★★★ 



'Module : 
'Description: 



' Programmer : 



f rmWeaponTypes . frm 

Allows user to access the weapon types 
records for addition, deletion, and 
modification . 

Kevin Colon 






Option Explicit 

Private Sub cmdAdd_Click ( ) 

On Error GoTo HandleAddErrors 

If cmdAdd. Caption = "&Add" Then 

datWeaponTypes . Recordset .AddNew 
txtWeaponType. Enabled = True 
txtWeaponType . SetFocus 
txtDescript ion. Enabled = True 
cmdAdd. Caption = "^Cancel" 
cmdSave . Enabled = True 
cmdDel . Enabled = False 
cmdUpdate. Enabled = False 
mnuFile . Enabled = False 
datWeaponTypes . Enabled = False 



Else 

datWeaponTypes . Recordset . CancelUpdate 

txtWeaponType . Enabled = False 

txtDescription . Enabled = False 

cmdSave .Enabled = False 

cmdDel . Enabled = True 

cmdUpdate . Enabled = True 

mnuFile . Enabled = True 

cmdAdd. Caption = "ScAdd" 

cmdAdd . SetFocus 

datWeaponTypes . Enabled = True 
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End If 



cmdAdd_Click_Exit : 

Exit Sub 

HandleAddErrors : 

Dim stMess As String 

stMess = "Cannot complete operation. " & vbCrLf Sc vbCrLf _ 

Sc Err . Description 

MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

End Sub 

Private Sub cmdDel__Click ( ) 

'delete the current record 
Dim iResp As Integer 

On Error GoTo HandleDel Errors 

If datWeaponTypes . Recordset . RecordCount > 0 Then 

iResp = MsgBox ( "Delete Weapon " Sc txtWeaponType . Text Sc "?", 
vbYesNo, "Delete Weapon") 

If iResp = vbYes Then 

Wi th datWeaponTypes . Recordset 

.Delete 'delete current record 

.MoveNext 'move to following record 

If .EOF Then 

. MovePrevious 
If .BOF Then 

MsgBox "The recordset is empty.", 
vbinf ormation, "No Records" 

End If 
End If 
End With 
End If 

Else 

MsgBox "No records to delete.", vbExclamation _ 

, "Delete Weapon" 

End If 

cmdDel_Click_Exit : 

Exit Sub 

HandleDelErrors : 

Dim stMsg As String 

stMsg = "Cannot complete operation. " Sc vbCrLf Sc vbCrLf _ 

Sc Err . Description 

MsgBox stMsg, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

End Sub 
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Private Sub cmdSave_Click ( ) 

'save the current record 
Dim iResp As Integer 

On Error GoTo HandleSaveErrors 
If txtWeaponType . Text <> "" Then 

txtWeaponType . Text = UCase ( txtWeaponType . Text ) 
iResp = MsgBox("Do you want to add " & txtWeaponType . Text & 
" to the database?", vbYesNo + vbQuestion, _ 

" Add Weapon " ) 

If iResp = vbYes Then 

datWeaponTypes . Recordset . Update 
End If 



Else 

MsgBox "You must enter a weapon type before saving,", 
vbExclamation _ 

, "Add Weapon" 

datWeaponTypes . Recordset . CancelUpdate 
End If 

txtWeaponType . Enabled = False 
txtDescript ion. Enabled = False 
cmdSave . Enabled = False 
cmdDel .Enabled = True 
datWeaponTypes . Enabled = True 
mnuFile. Enabled = True 
cmdAdd .Caption = " & Add " 
cmdAdd . SetFocus 
cmdUpdate. Enabled = True 



cmdSave_Click_Exit : 

Exit Sub 

HandleSaveErrors : 

Dim stMess As String 
Select Case Err. Number 

Case 3022 'duplicate key field 

stMess = "Record already exists -- could not save>'" 
MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

Case 3058, 3315 'no entry in key field 

stMess = "Enter a weapon type before saving." 

MsgBox stMess, vbExclamation, "Database Error" 

On Error GoTo 0 'turn off error trapping 

Case Else 

stMess = "Record could not be saved." & vbCrLf _ 

Sc Err . Description 

MsgBox stMess, vbExclamation, "Database Error" 
datWeapon'Types . Recordset . CancelUpdate 
Resume Next 
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End Select 



End Sub 

Private Sub cmdUpdate_Click ( ) 

If cmdUpdate . Caption = "ScUpdate" And _ 

datWeaponTypes . Recordset . RecordCount > 0 Then 

cmdUpdate. Caption = "SuScbmit" 
txtWeaponType . Enabled = True 
txtDescription. Enabled = True 
cmdDel . Enabled = False 
mnuFile . Enabled = False 
txtWeaponType . SetFocus 
cmdAdd. Enabled = False 
datWeaponTypes .Enabled = False 
datWeaponTypes . Recordset . Edit 

Else 

If datWeaponTypes. Recordset .RecordCount > 0 Then 
datWeaponTypes . Recordset . Update 

txtWeaponType. Enabled = False 
txtDescription. Enabled = False 
cmdDel . Enabled = True 
mnuFile . Enabled = True 
cmdAdd. Enabled = True 
cmdAdd . SetFocus 
cmdUpdate .Caption = "ScUpdate" 
datWeaponTypes . Enabled = True 
End If 
End If 

End Sub 

Private Sub datWeaponTypes_Reposition ( ) 

S e t Weap onRe c o r dNtimbe r 

End Sub 

Private Sub Form_Load ( ) 

datWeaponTypes .DatabaseName = gstNewDat abase 

With datWeaponTypes 
.Refresh 

If Not .Recordset . EOF Then 
. Recordset .MoveLast 
. Recordset . MoveFirst 
End If 
End With 

SetWeaponRecordNumber 
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End Sub 



Private Sub Form_Unload (Cancel As Integer) 

f 2 TinMain . Enabled = True 
Unload Me 

End Sub 

Private Sub mnuFileBack_Click { ) 

frmMain. Enabled = True 
Unload Me 



End Sub 



Private Sub mnuFileSearch_Click ( ) 



& 



datWeaponTypes.Recordset .FindFirst ” [WeaponType] = ' " & _ 
InputBox ( "Enter the Weapon Type", "Weapon Type 

II / II 



Search" ) 



If datWeaponTypes . Recordset .NoMatch Then 

MsgBox "Weapon Type was not found.", vbOKOnly, "Weapon Type 

Search" 

datWeaponTypes . Recordset .MoveFirst 'go to first record 

End If 



End Sub 

Private Sub SetWeaponRecordNumber ( ) 
Dim iRecordCount As Integer 
Dim iCurrentRecord As Integer 



iRecordCount = datWeaponTypes . Recordset . RecordCount 
iCurrentRecord = datWeaponTypes . Recordset .AbsolutePosit ion + 1 
If datWeaponTypes . Recordset . EOF Then 

datWeaponTypes . Caption = "No more records" 

Else 

datWeaponTypes . Caption = "Weapon " & iCurrentRecord & _ 

" of " & iRecordCount 

End If 



End Sub 
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